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Abstract 


A  tool  was  developed  for  Monte  Carlo  simulation  of  life 
cycle  costs  using  parametric  cost  modeling.  Additionally, 
the  analysis  of  the  performance  of  parametric  CER  cost 
estimation  has  been  cut  down  to  a  more  manageable  task. 
Models  can  be  built  and  tested  quickly  and  easily. 

Random  deviate  generators  were  researched  and  built. 
Several  applicable  statistical  desorption  routines  were  also 
implemented.  Statistical  integrity  and  great  accuracy  has 
been  maintained,  while  made  accessible  through  an  intuitive, 
user  friendly  interface. 
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AN  INTERACTIVE  LIFE  CYCLE  COST  FORECASTING  TOOL 


I .  Introduction 


Background 

Each  year  the  United  States  government  spends  billions 
of  dollars  for  manpower  and  equipment  to  protect  and 
preserve  the  nation.  As  important  as  national  defense  is, 
it  is  only  one  of  many  ways  the  government  serves  the 
people.  Programs  such  as  education,  transportation,  and 
human  assistance  are  also  necessary  parts  of  government 
spending . 

Unfortunately  the  government  is  not  endowed  with 
unlimited  resources.  Each  program  is  in  constant 
competition  with  others  for  funding.  Indeed  a  large  part  of 
our  political  system  is  dedicated  to  the  parsing  and 
distribution  of  tax  dollars.  Since  the  government  is  tasked 
with  performing  many  services  with  limited  resources,  it  is 
compelled  to  get  the  most  from  each  tax  dollar  spent.  Since 
many  of  the  dollars  spent  on  national  defense  go  toward 
acquiring  new  weapon  systems,  the  government  should  buy  the 
least  expensive  piece  of  hardware  capable  of  doing  the  job, 
or  buy  the  best  piece  of  hardware  while  staying  within  the 
budgetary  constraints.  The  latter  case,  maximizing 


efficiency  can  be  demonstrated  by  the  simple  optimization 
problem  below: 


Max  E  =  F(A,B) 

(1) 

st.  C  =  C  A  +  CB 

(2) 

Where  CA  and  CB  are  cost  functions,  linear  or  nonlinear, 
for  Systems  A  and  B.  These  cost  functions  may  be  based  on 
quantity  purchased.  C  is  a  budgetary  constraint,  and  E  is 
some  production  function  representing  the  combined 
performance  of  systems  A  and  B.  Note  that  this  is  for  a 
given  configuration.  The  E  represents  effectiveness  and  is 
equated  to  some  function  of  the  quantity  of  systems  A  and  B 
purchased . 

Either  strategy,  maximizing  ef fectiveness  or  minimizing 
cost,  leads  to  some  type  of  cost  comparison  among  the 
proposed  systems.  The  problem  is  that  new  weapon  systems  do 
not  come  off  the  shelf  with  clear  cut  price  tags.  The  cost 
of  each  program  must  be  estimated,  then  compared  with  the 
other  programs  in  question.  It  is  easy  to  see  that  realized 
efficiency  depends  greatly  on  the  quality  of  the  cost 
estimation. 

Fisher,  as  well  as  others,  has  suggested  that  to 
properly  estimate  the  budgetary  impact  of  a  particular 
system,  all  phases  of  the  program  must  be  examined 
(Fisher:66).  Purchase  price  alone  does  not  constitute  the 
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system  cost.  There  are  research  and  development,  testing, 
procurement,  operation,  and  maintenance  phases  that  must  be 
considered.  All  spending  associated  with  a  program  is 
called  the  life  cycle  cost  (LCC).  The  DoD  Life  Cycle 
Costing  Guide  For  System  Acquisitions  defines  LCC. 


The  LCC  system  is  the  total  cost  to  the 
Government  of  acquisition  and  ownership  of  that 
system  over  its  full  life.  It  includes  the  cost 
of  development,  acquisition,  operation,  support 
and  where  applicable,  disposal.  (DoD: 1-1) 


Life  cycle  costing  has  several  advantages  over  simple 
purchase  price  estimation.  Since  life  cycle  costing 
includes  all  the  phases  of  the  program's  life,  a  more 
realistic  look  at  the  budgetary  effect  is  achieved.  Figure 
1  demonstrates  the  large  portion  of  DoD  funds  used  for 
operation  and  support,  costs  not  included  in  the  purchase 
price.  It  is  very  possible  that  system  A  may  have  a  lower 
purchase  price  than  system  B,  but  have  such  a  large  manning 
and  support  requirement  that  these  costs  overwhelm  the 
purchase  price  and  make  B  a  more  economical  choice. 

Since  the  stages  of  the  program  occur  chronologically, 
LCC  also  allows  for  the  "timing"  of  the  money  spent.  Banks 
exist  and  flourish  all  over  the  world  profiting  almost 
exclusively  from  the  time  value  of  money.  So  the  timing  of 
money  spent  by  competing  programs  can  be  a  very  significant 
factor. 
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Figure  1  Department  of  Defense  1979  Budget 
Billions  of  Dollars  (5eldon:2) 


Objective 

The  objective  of  this  research  is  to  develop  an  easy  to 
use,  flexible,  PC-based  Monte  Carlo  simulation  for  the 
preliminary  estimation  or  forecasting,  of  life  cycle  costs. 
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Suboblectives 


Model  Definition.  The  first  step  is  to  survey  life 
cycle  cost  models  by  reviewing  literature.  Identification 
of  the  proper  model  must  precede  all  other  steps. 

Model  Construction.  Construction  of  the  mathematical 
model,  which  means  creation  of  the  source  code,  is  the  next 
step  in  using  the  LCC  cost  model  chosen.  The  actual 
mathematical  calculations  must  be  coded  in  this  step. 

It  will  be  necessary  to  develop  random  number 
generators,  the  basis  of  the  Monte  Carlo  simulation. 
Development  of  fast,  competent  generators  is  crucial  to 
achieving  the  overall  objective. 

Software  for  the  analysis  of  the  LCC  outputs  must  also 
be  developed.  The  next  section  of  code  is  the  LCC 
distribution  identification  routines.  Quantile  estimation 
is  closely  linked  to  distribution  identification,  and  it 
must  also  be  coded. 

Software  Production.  After  verification  of  the  various 
mathematical  software  routines,  these  routines  must  be 
integrated  into  a  single  program  with  a  logical,  flexible 
control  structure.  The  integration  of  the  routines  is  no 
more  important  than  the  development  of  a  user  friendly 
interface.  The  program  must  be  easy  to  use. 

Documentat Ion .  The  documentation  must  be  polished  up 
and  formatted.  This  documentation  must  include  a  User's 
Manual. 
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II.  LITERATURE  REVIEW 


Introduction 

The  goal  of  this  research  is  to  design  and  build  a 
flexible,  easy  to  use  tool  for  Monte  Carlo  simulation  of  the 
life  cycle  costs  of  weapon  systems,  including  estimation  of 
the  distribution  of  these  costs.  Monte  Carlo  simulation  is 
simply  a  compilation  of  random  generations  aggregated  to 
infer  something  about  the  real  world.  The  tool  must 
generate  samples  from  a  cost  distribution  according  to 
historic  data  about  past  weapon  system  attributes  and  costs. 
The  areas  of  literature  that  must  be  reviewed  for  this 
effort  include  theoretical  life  cycle  costing  models, 
statistical  estimation,  and  random  number  generation. 

Chapter  Overview 

This  chapter  will  present  a  brief  overview  of  the  types 
of  LCC  models  available  in  the  literature,  providing  the 
characteristics  of  each  model,  good  and  bad. 

Since  Monte  Carlo  simulation  involves  the 
representation  of  random  events,  the  random  number  generator 
used  by  the  modeling  program  must  generate  numbers  that 
actually  appear  to  be  random.  This  chapter  will  review 
promising  methods  for  generating  the  random  numbers  needed 
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by  the  life  cycle  cost  model.  Sample  output  from  the  random 
deviate  generators  actually  used  can  be  found  in  Appendix  B. 

LCC  Modeling 

The  literature  suggests  that  there  are  basically  three 
types  of  LCC  models  (Collins: 55;  Krisch:1527;  Seldom  161; 

DoD : 3-3 ) : 

1)  Parametric  cost  factor  models 

2)  Engineering  cost  factor  models 

3)  Accounting  models 

Parametric.  The  parametric  cost  factor  model  is  named 
so  "because  the  physical  and  performance  measures  are 
commonly  called  parameters  in  the  estimating  equations" 
used  to  forecast  costs  (DoD:3-3).  The  weight  or  number  of 
engines  on  an  aircraft  may  be  used,  for  instance,  to 
estimate  the  production  and  operating  costs.  Krisch 
explains  that  curve  fitting  can  be  used  to  derive  Cost 
Estimating  Relationships  (CER)  between  cost  and  production 
schedule  and  system  characteristics.  These  CER's  can  be 
adjusted  to  make  the  best  estimate  possible  from  past  data 
(Krisch: 1527 ) . 

Several  advantages  are  associated  with  using  this  type 
of  cost  estimation,  as  outlined  by  the  DoD  Life  Cycle 
Costing  Guide  For  System  Acquisitions: 
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1)  Cost  estimates  are  based  on  general  system 
characteristics,  no  detailed  information  is 
necessary; 

2)  Model  is  very  fast  and  easy  to  use; 

3)  Model  is  resistant  to  user  bias; 

4)  Since  parametric  statistics  are  used  in 
generating  the  forecasts,  confidence  intervals 
(Cl's)  can  be  placed  on  the  forecasts  (DoD:3-6). 

It  is  in  this  last  advantage  that  lies  the  real  power  of 
this  type  of  modeling. 

Figure  2  shows  an  example  of  a  parametric  CER  model. 
Notice  that  the  costs  are  being  calculated  from  general 
characteristics,  and  that  there  is  some  error  associated 
with  each  equation. 

Engineering.  Many  authors  ignore  this  model  or  group 
it  with  the  model  above  in  the  "cost  factor"  category 
(Krisch: 1527;  Collins:54).  This  is  because  the  engineering 
model  is  very  similar  to  the  parametric  CER  model 
mechanically.  The  system  is  broken  down  into  cost 
components  like  above,  and  cost  relationships  are  used  to 
determine  the  cost  of  each  component. 

The  difference  in  the  CER  and  engineering  models  lies 
in  the  type  estimating  relationships  used.  The  model  above 
uses  relationships  of  convenience,  which  may  or  may  not 
capture  a  great  deal  of  the  cost  variance.  The  engineering 
model  uses  specific  hardware- to-cost  relationships  to 
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COST  REPRESENTHTION  FOR 

1  C-130 


CERs _ 

RIRFRRME 

ENGINES 

ELECTRONICS 

MRNPOk'ER 

□PS 


=  200,000  ♦  75  Xi  +  e 
z  2,000  +  BB  X2  +  e 
z  530  *  200  X3  +  e 
z  300,000  +  400,000  XH  ♦  e 
z  500.000  4-  12.000  X5  ♦  e 


k'HERE 

Xi  =  airframe  weight 
X2  =  thrust 
X3  =  number  radios 
X4  =  crewmembers 
X  s  z  yearly  Flying  hours 
e  z  error,  ltd  N(O.MSE) 


Figure  2  Parametric  CER  cost  model  example. 


determine  cost.  Obviously  this  takes  more  information,  and 
indeed  DoD  does  not  recommend  this  as  a  method  for 
preliminary  work  since  the  level  of  detail  needed  is  usually 
obtained  after  many  crucial  decisions  (based  on  cost)  have 
been  made  (DoD: 3-12).  The  main  advantages  of  this  method 
are  increased  accuracy  and  hence  more  detailed  sensitivity 
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analysis  of  differing  configurations,  and  ease  of  transition 
from  a  CER  model  (DoD:3-ll). 

Figure  3  is  an  example  of  an  engineering  model.  Notice 
that  the  cost  equations  are  more  detail  than  in  the  CER 
model.  Also  the  cost  equations  do  not  have  the  same  error 


COST  REPRESENTATION  FOR 

1  C-130 

cost  equations 

niRFRRME 

=  13  X!  +  109  X2  ♦  12 x3  * 

2.5  X„  +  .03  X5  +  750  X6 

ENGINES 

=  150,000  X7  +  520  X8  *  3700  Xg  + 
6200  X10 

S  Iv'HERE 

X, 

=  ribs  in  Feusolaoe 

X? 

-  wlndoivs 

X3 

=  aluminum  sq.  Ft. 

x, 

=  pipes  Ft. 

x5 

=  rivets 

X7 

=  hudraulic  pumps 

X7 

=  compressors 

xB 

=  Fuel  pumps 

x. 

=  propellers 

Xjo 

=  Fuel  Filtration  sustems 

Figure  3  Engineering  cost  model  example. 


associated  with  the  CER's  because  these  cost  equations  are 
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the  real  world  relationships  between  physical  construction 
and  cost.. 

Accounting.  This  seems  to  be  the  most  detailed  of  the 
models  types,  summing  costs  over  system  components  at  a  very 
low  level,  taking  into  account  such  needs  as  personnel, 
training,  etc.  This  methods  takes  an  enormous  amount  cf 
information,  such  as  lists  of  "contractor  supplied  LRU's  ... 
flying  hour  programs  and  development  scenarios  . . .  Labor 
rates,  inventory  costs  and  repair  cycles  times,  for  example" 
( Collins: 55 ) . 

Figure  4  shows  an  example  of  a  portion  of  an  accounting 
model.  Notice  that  subsystems  must  be  accounted  for  at  a 
very  low  level.  This  would  continue  until  virtually  every 
part  in  the  aircraft,  and  all  the  service  costs,  have  been 
accounted  for. 

The  reader  may  notice  that  the  different  types  of 
models  seem  to  be  a  progression  of  more  and  more  detailed 
cost  models.  For  this  reason  there  seems  to  be  a  consensus 
among  authors  that  the  less  specific  models  are  more  useful 
early  in  the  acquisition  cycle  when  little  is  known  about 
the  proposed  system  (Collins: 56;  DoD:3-10;  Krisch: 1527 ) . 
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COST 

REPRESENTRTION  FOR 

1  C-I30 

RIRFRRME 

rivets 

door  adjustment 

daar  seals 

screws 

hydraulic  pumps 

carpet 

windows 

hgdrauiic  lines 

boosters 

Roar  board  interior  lights 

light  bulbs 

hinges 

throttle  cables 

yoke 

seats 

hydraulic  zaires 

insulation  | 

wire 

manual  switches 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

RIRFRRME 

■ 

■ 

■ 

total  cast 

Random  Humber  Generation 

This  portion  of  the  literature  review  is  concerned  with 
the  generation  of  random  numbers,  the  simulation  of  samples 
conforming  to  a  given  cumulative  density  function.  A 
cumulative  density  function  (CDF),  or  distribution,  is 
simply  a  function  that  makes  a  generalization  about  a 
population  of  values.  Given  an  initial  value,  the  CDF  will 
identify  the  probability  that  a  number  drawn  at  random  from 
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the  specified  distribution  (or  population  of  numbers)  will 
be  smaller  than  the  initial  value: 

CDF (X)  =  P(x  <  X)  (3) 

A  number  drawn  at  random  from  the  population  is  called 
a  random  deviate  since  we  don't  know  exactly  what  its  value 
will  be,  or  how  far  it  will  deviate  from  the  expected  value. 
Random  deviates  are  useful  because  they  allow  modelers  to 
sample  from  real-world  processes. 

Computer  programming  is  by  nature  very  structured, 
making  the  generation  of  random  numbers  no  trivial  matter. 
Winchmann  and  Hill  offer  the  following  from  von  Neumann, 
"Anyone  who  considers  arithmetical  methods  of  producing 
random  digits  is,  of  course,  in  a  state  of  sin" 

(Winchmann: 127 ) .  Since  any  numbers  generated  by  the  methods 
to  follow  are  reproducible  by  rerunning  the  same  code  again, 
they  are  not  truly  random.  These  numbers  are  called  pseudo 
random  deviates.  These  pseudo  random  deviates  can  be  just 
as  effective  as  truly  random  deviates  if  the  generation 
method  is  designed  with  care,  and  the  reproducibility  they 
allow  can  be  an  aid  in  experimentation. 

General  Sampling  Techniques.  There  are  various  methods 
for  generating  samples  from  some  specified  distribution. 
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The  following  methods  were  drawn  from  Pritsker,  but  they  are 
commonly  found  in  the  literature  (Pritsker : 707 ) : 

1)  Inverse  transformation 

2)  Rejection 

3)  Composition 

Ross  adds  another  general  technique,  also  common  in  the 
literature  (Ross: 442): 

4)  Hazard  rate 

Inverse  Transformation.  Pritsker  makes  it  clear 
that  the  inverse  transformation,  or  inverse  CDF  method,  is 
by  far  the  easiest  method  to  use  (Pritsker:708) .  This  method 
entails  using  a  function  that  is  the  inverse  of  the  CDF 
function  to  generate  properly  distributed  variables.  Since 
the  CDF  returns  a  probability  (between  zero  and  one) 
associated  with  some  value,  the  inverse  CDF  begins  with  a 
number  between  zero  and  one  to  produce  the  value  associated 
with  the  given  level  of  probability.  Since  the  CDF  of  the 
distribution  in  question  must  be  invertible,  this  method  is 
not  applicable  for  some  of  the  commonly  used  distributions. 
Like  all  other  methods  discussed  in  this  section  the  inverse 
transform  method  requires  the  generation  of  numbers 
uniformly  distributed  between  zero  and  one.  A  simple 
uniform  random  number  generator  (U[0,1])  may  be  found  in 
Winchmann  et  al  (not  used  here),  but  the  construction  of 
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11(0,1)  generators  is  not  the  subject  of  this  section 
(Winchmann: 127-128 ) . 

Rejection.  Tadikamalla  gives  a  very  good  summary  of 
the  rejection  method,  also  known  as  acceptance-rejection,  as 
developed  by  Von  Neumann  (Tadikamalla: 925-928 ) .  Rather  than 
using  the  CDF  described  above,  rejection  makes  use  of  the 
PDF  associated  with  the  distribution  being  modeled.  The  PDF 
is  the  first  algebraic  derivative  of  the  CDF.  The  area 
under  the  PDF  curve,  taken  between  two  points,  gives  the 
probability  that  a  randomly  drawn  value  will  lie  between  the 
two  points.  The  key  is  to  find  some  other  function,  whose 
value  returned  for  a  given  zero-one  number  will  always  be 
larger  the  value  of  the  PDF  at  the  same  point.  This  is 
known  as  a  majorizing  function.  This  majorizing  function 
must  be  easy  to  sample  from  (by  inverse  CDF  or  some  other 
method ) . 

A  uniform  zero-one  variate  and  a  variate  from  the 
majorizing  function  are  drawn.  If  the  uniform  variate  is 
smaller  than  the  ratio  of  majorizing  function  value  to  PDF 
value,  keep  the  variate  as  a  sample  from  the  designated 
distribution,  otherwise  draw  new  variates  and  try  again.  It 
stands  to  reason  that  the  closer  the  majorizing  function  and 
the  real  PDF  are,  the  fewer  variates  are  rejected;  so  the 
smaller  the  difference  between  PDF  and  majorizing  function, 
the  more  efficiently  random  numbers  are  generated 
(Tadikamalla:925-928) . 
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Composition.  This  method  may  be  used  when  the 
density  function  can  be  written  as  a  weighted  sum  of  other 
distributions  (with  the  sum  of  weighting  factors  totaling 
one  [Pritsker : 710] ) .  To  sample  from  the  designated 
distribution,  fist  sample  from  the  component  distributions 
and  sum  according  to  the  weighting  factors  to  create  one 
random  variable. 

Hazard  Rate.  The  hazard  function  (H)  is  defined  as 
the  ratio  of  the  PDF  to  the  CDF  (Ross: 442): 

H  =  PDF/CDF  =  P(t  <  x  <  t  +  dt|  x  >  t)  (4) 

This  specifies  the  probability  of  a  random  variable  x  being 
greater  than  some  value  t  +  dt  given  that  x  is  greater  than 
t.  Leemis  (Leemis:892-894)  as  well  as  others  recognize  that 
the  hazard  function  for  any  probability  distribution  has 
unit  exponential  distribution,  a  known  probability 
structure.  The  inverse  of  this  hazard  rate  can  be  used  to 
generate  random  variables  similar  to  the  inverse 
transformation  method. 

There  are  other  methods  for  generating  random  variables 
that  make  use  of  the  special  properties  of  particular 
distributions.  Special  algorithms  have  been  developed  for 
sampling  from  most  of  the  commonly  used  distributions  which 
are  faster  than  the  general  techniques.  While  Pritsker 
l Pritsker : 710-711 )  gives  a  tidy  outline  of  these,  only  the 
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methods  applicable  to  the  distributions  needed  for  this 
research  will  be  discussed  in  the  next  section.  Also 
outlined  by  Pritsker  is  the  idea  that  there  may  be  useful 
working  relationships  among  the  various  methods  for 
generating  random  variables. 


. . .  the  composition  method  may  employ  the 
inverse  transformation  method  to  select  a 
subdistribution  and  then  any  sampling  procedure  to 
obtain  a  random  sample  from  the  subdistribution. 
The  acceptance/rejection  method  is  frequently  used 
where  majorizing  functions  are  defined  for 
portions  of  the  distribution  function.  Thus,  it 
should  be  clear  that  the  methods  for  generating 
random  samples  are  not  necessarily  used 
independently. (Pritsker : 710) 


Specific  Generation  Techniques.  Since  the  tajority  of 
the  random  numbers  needed  for  life  cycle  cost  estimating 
must  be  distributed  according  to  the  beta  distribution,  this 
section  will  focus  on  generating  beta  deviates.  The  beta  is 
useful  for  modeling  symmetric  or  skewed  unimodal  data.  The 
beta  differs  from  the  normal  by  the  lack  of  long  tails  that 
extend  out  to  positive  and  negative  infinity,  enabling  the 
representation  of  populations  having  discrete  upper  an  lower 
limits.  Unfortunately  the  CDF  of  the  beta  distribution 
cannot  be  inverted,  so  the  inverse  CDF  method  is  of  no  use. 
Furthermore,  the  combination  of  the  first  four  moments  of 
the  beta  make  it  very  difficult  to  sample  from  by  any 
method.  For  that  reason  the  literature  is  mainly  concerned 
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with  the  generation  of  two-parameter  beta  variates  as  the 
ratio  of  two-parameter  gamma  variates.  Ross  offers  the 
following  formula  for  obtaining  a  beta  variable  with 
parameters  n  and  m  (Ross: 452): 

Beta(n,m)  =  Gamma(n/1)/  ( Gamma ( n, 1)+Gamma(m, 1)  (5) 


The  parameters  are  often  noted  as  (a,/?)  elsewhere  in  the 
literature. 

Fishman  provides  a  comparison  of  his  improved  method 
for  generating  gamma  deviates  to  the  algorithm  of  Wallace, 
developed  earlier.  The  following  is  Wallace's  algorithm  as 
reported  by  Fishman: 

For  integral  a  method  2  uses  (7)  [see  paragraph 
below] .  For  non-integral  a  the  six  steps  are: 

1.  Generate  a  uniform  deviate  U. 

2.  If  U  <-  1  -  a  +  <  a  >  then  generate  X'  from  (7) 
using  b=<cr>. 

3.  Otherwise,  generate  X'  from  (7)  using  b=  <a  +  1>. 

4.  Generate  a  uniform  deviate  U. 

5.  If  U  <=  (X'/t')  t'  /  ( l-t'+t'X'/t)  then  X'  has  the 
pdf  in  (2). 

6.  Otherwise,  go  to  step  1.  (Fishman:408) 


where  t  is  <a>,  the  largest  integer  contained  in  a,  and  t' 
is  a-t.  Fishman's  (7)  refers  to  the  negative  natural  log  of 
a  multiplicative  sum  of  a  uniform  deviates,  the  standard 
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method  for  calculating  integral  parameter  gammas 
(Fishman: 408; Tadikamalla: 92 5 /Wallace: 693 ) : 

<S> 

-Ln  I.,  U ( 0 , 1 ) ;  (6) 

while  (2)  refers  to  (Fishman: 407 ) : 


f  x  (X, «,/?)  =  c(a//?)a(ar,/?)g(X,a//?)h(X,a,/3)  0  £  X  <  » 


=  0 

elsewhere 

(7) 

0  £  h(X,or,0), 

(8) 

f® 

h(X,a,/?)dx  =  1 

(9) 

Jo 

0  <  g(X,  a,{3)  <  «, 

(10) 

a(  a, (3)  <  l/g(X,  a,(3), 

(11) 

1/c  (a, (3)  =  a  (a,f3) 

00 

g(X,a,/?)  h {a, (3)  dx 

(12) 

0 


The  method  proposed  by  Fishman  is  computationally 
easier  and  proves  faster  as  implemented  on  the  IBM  360/75. 
The  steps  for  Fishman's  algorithm  are: 


1)  draw  an  exponential  variable  X  with  unit  mean 

2)  draw  a  U(0,1)  number, 

3)  if  U(0,1)  <=  (X/exp(X+l))  a-1  then  multiply  X 
by  a,  then  keeping  this  product  as  a  gamma  random 
variable  other  wise  return  to  step  1. 

(Fishman: 408 ) . 
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Although  the  two  methods  may  seem  fundamentally 
different,  they  differ  only  in  the  choice  of  the  majorizing 
function  h(X,ar,B),  which  does  not  even  clearly  appear  in 
Fishman's  method.  Both  these  methods  employ  the  rejection 
technique  outlined  in  the  general  techniques  section. 

Another  similar  method  is  proposed  by  Tadikamalla,  and 
compares  favorably  with  Fishman  for  small  values  of  a  and 
is  considerable  better  for  larger  values  of  cr.  This  method 
uses  the  generation  of  Laplace  variates 
(Tadikamalla: 925-928 ) . 

Since  many  random  beta  variates  will  be  generated  in 
the  course  of  modeling  life  cycle  costs,  efficiency  and 
speed  is  very  important.  Kronmal  and  Peterson  propose  a 
modified  Rejection  method  with  Acceptance-Complement 
methodology  that  avoids  repeating  steps  and  has  useful 
design  flexibilities  (Kronmal : 271-281 ) . 

Greenberg  has  implemented  a  new  density  function  able 
to  approximate  the  type  of  data  generally  modeled  by  the 
non-integral  gamma  distribution  through  the  mixture  of 
integral  gamma  deviates  which  are  much  more  quickly 
calculated  (Greenberg: 32-33 ) .  The  method  is  quite  simple 
and  fast,  but  is  not  a  true  gamma,  and  using  a  ratio  to 
generate  beta  variable  is  not  recommended  by  Greenberg; 
however,  it  is  possible  that  this  density  function  could  be 
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used  to  directly  model  the  data  used  to  estimate  costs, 
rather  than  to  mimic  a  beta  distribution. 

Along  the  same  lines  ,  Ramberg,  Dudewicz,  Tadikamalla, 
and  Mykytka  have  proposed  a  Generalized  Lambda  Distribution 
(GLD)  that  can  take  on  the  shape  of  virtually  any  of  the 
commonly  used  distributions  (Ramberg: 210-214 ) .  Once  again, 
the  beta  cannot  be  simulated  directly  but  the  authors  have 
confidence  in  betas  generated  via  ratios  of  gamma 
approximations.  Although  this  would  be  slower  than  using 
one  of  the  more  direct  gamma  generators,  the  power  of  the 
GLD  lies  in  its  uses  for  exploring  sensitivity  analysis. 
Since  the  distribution  can  be  shaped  virtually  any  way,  it 
can  be  tweaked  to  test  the  sensitivity  of  a  model  to  any 
certain  input  distribution  assumption.  Indeed  such  a  study 
was  undertaken  by  the  authors  (Ramberg: 210-214 ) . 

Also  mentioned  in  the  general  techniques  section  was 
the  use  of  the  hazard  function.  Recall  that  the  hazard 
function  is  the  ratio  of  CDF  to  PDF  and  is  unit  exponential, 
and  known  density  structure.  A  proof  is  offered  by  Devroye 
(Devroye: 281 ) .  Devroye  offers  as  many  hazard  rate  based 
generation  methods  as  have  been  noted  already  in  this 
section,  but  applications  to  the  beta  distribution  do  not 
seem  to  be  available  in  the  literature. 
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Ill .  Methodology 


Model  Definition 

The  first  step  in  identifying  the  proper  model  is  to 
research  the  models  available.  Of  the  various  types  of  LCC 
modeling  found  in  the  literature,  the  methodology  that  is 
most  appropriate  for  preliminary  analysis  is  the  parametric 
CER  method,  or  cost  factor  model. 

The  cost  factor  model  uses  CER's  and  single  variables 
as  cost  components  to  define  the  total  cost  of  .the  system. 
For  example,  for  some  aircraft  the  radio  cost  may  be 
represented  by  one  single  variable,  the  navigation  system  by 
a  CER,  and  the  engines  by  more  CER's.  Each  of  these  cost 
factors  also  has  some  specific  time  frame  (R&D  costs  are  up 
front  whereas  operating  costs  occur  later  in  system  life). 

CER'S  -  Recall  that  a  CER  is  a  cost  estimating 
relationship  (a  regression  equation).  For  example,  the  cost 
of  a  radio  may  be  estimated  by  three  dollars  per  channel  it 
receives,  twelve  dollars  per  watt  of  transmitting  power, 
plus  fifty  dollars  for  the  basic  chassis: 
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C  =  /?0  +  /?1X1  +  /32 


X, 


(13) 


where 

C  =  radio  cost 
/?  c=  $50.00 
f3  ,=  $3.00 
(3  $12.00 

X  j=  channels 

X  2=  watts  transmitting  power 

CER's  attempt  to  estimate  costs  for  future  products 
based  on  characteristics  shared  with  past  products.  The 
future  products  must  have  characteristics  in  common  with  the 
past  products,  to  allow  forecasting  according  to  regression 
equations  (based  on  those  characteristics).  Forecasting  the 
cost  of  new  technologies  must  be  performed  with  great  care. 
Obviously  the  qost  of  the  B-2  engines  cannot  be  estimated  by 
comparison  with  the  engines  from  the  F-84,  because  the  two 
do  not  share  many  characteristics. 

The  characteristics  are  the  explanatory  variables  for 
the  CER's,  or  regression  equations.  The  distributions  and 
parameters  of  each  input  variable  must  be  specified. 
Additionally  the  (3  parameter  estimates  and  their  covariances 
must  be  known,  along  with  the  MSE  of  the  regression. 

Three  basic  types  of  CER's  will  be  available  in  the 
model;  natural  logarithm,  learning  curve,  and  linear 
(regular)  with  explanatory  variable  power  transformations 
allowed  (Box:531).  The  overall  system  cost  may  be  composed 
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of  up  to  twenty  CER's,  with  each  CER  allowed  up  to  ten 
components,  or  explanatory  variables. 

SINGLE  VARIABLES  -  Some  costs  can  be  adequately 
represented  by  a  single  variable  from  one  of  the  eleven 
available  distributions.  For  example,  the  cost  of  a  tire 
may  be  normally  distributed  by  N(150,12)  due  to  fluctuations 
in  availability.  Again  the  distribution  and  parameters  for 
each  variable  must  be  specified  when  the  system  is  defined. 

A  limit  of  twenty  single  variable  cost  components  imposed. 


MONTE  CARLO  METHODOLOGY 

The  cost  simulation  methodology  will  be  to  predict  the 
cost  associated  with  each  CER  cost  component  and  each  single 
variable  cost  component  (through  random  number  generation), 
summing  all  these  up  to  get  one  overall  estimate  of  system 
cost: 

n  m 

TOTAL  COST  ESTIMATE  ,  =  I  CER  .  +  I  single  variable  (14) 

j=l  k=l 

where 

n  =  number  of  CER's 

m  =  number  of  single  variable  cost  components. 

By  viewing  many  repetitions  of  this  estimate  the 
analyst  may  get  an  idea  of  the  true  cost  distribution 
underly_ng  these  sample  costs. 

CER'S  -  Predicting  the  cost  associated  with  one  CER  can 
be  p  very  complicated  task.  The  following  steps  capture  the 
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essence  of  the  process.  These  steps  are  detailed  more 
thoroughly  in  Chapter  IV. 

1)  draw  a  set  of  dependent  (3  parameters  from  a 
multivariate  normal  distribution  according  to  the 
/ 3  covariance  matrix. 

2)  sample  each  explanatory  variable  from  the 
proper  distribution. 

3)  transform  each  variable  by  the  appropriate 
power . 

4)  multiply  each  transformed  variable  by  the 
appropriate  /?  value. 

5)  sum  the  products. 

6)  add  a  normally  distributed  N(0,MSE)  value  to 
the  sum. 

7)  distribute  the  value  of  the  sum  according  to 
the  time  phase  specifications,  then  find  the 
present  values. 

SINGLE  VARIABLES  -  Single  variable  cost  components  are 
much  simpler  to  simulate.  Each  variable  is  sampled  from  the 
appropriate  distribution,  time  phased,  and  converted  to  a 
present  value. 

TIME  PHASED  SPENDING 

After  each  cost  component  has  been  estimated  (CER's  and 
single  variable  cost  components),  it  must  be  adjusted  to  a 
Present  Value  (PV)  before  it  is  added  to  the  overall  system 
cost.  Obviously  money  spent  during  different  phases  will 
have  different  PV's  due  to  the  discount  rate  (interest). 

For  example:  Farmer  Brown  owes  $100.00  to  the  Farm 
Equipment  Corporation  and  $100.00  to  the  General  freed  Store. 
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However,  the  equipment  bill  is  not  due  until  next  year.  If 
the  current  interest  rate  at  the  local  bank  is  10%,  Farmer 
Brown  may  invest  $90.91  and  allow  the  money  to  collect 
interest,  or  "grow"  to  $100.00  over  the  next  year: 

PV($100.00)  =  100/(1  +  r)  N  =  $90.91  (15) 

where 

r  =  periodic  interest  rate,  10%  here 

N  =  number  of  periods  into  the  future,  1  here 

The  feed  bill  however,  must  be  paid  now,  costing  Farmer 
Brown  the  entire  $100.00.  This  is  the  concept  behind 
present  values;  "How  much  will  I  have  to  invest  now  to  have 
$ XXX. XX  at  some  point  in  the  future?"  Obviously  this  depends 
on  how  far  into  the  future  the  money  is  due  and  the 
prevailing  interest  (or  discount)  rate. 

This  creates  a  need  for  the  user  to  specify  the  timing 
of  the  money  to  be  spent  and  the  current  interest  rate.  The 
spending  process  is  broken  into  four  periods,  called  the 
NOCOST  period.  Phase  In  period  (PI),  Constant  period  (CON), 
and  Phase  Out  period  (PO).  The  user  must  specify  the  length 
of  each  of  the  time  periods  (which  may  be  zero)  for  each 
cost  component. 

Figure  5  shows  examples  of  various  time  phase 
configurations.  The  total  area  associated  with  each  year 
(ie.  under  the  curve  between  0  and  1  for  the  first  year) 
will  determine  how  much  of  the  money  from  the  cost  component 
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Figure  5  Spending  timelines  for  cost  components, 


in  question  will  be  spent  that  year.  Note  that  the  second 
spending  timeline  has  no  NOCOST,  PI,  or  PO  period,  and  the 
last  has  only  PI  and  PO  periods.  Remember  that  each 
separate  cost  component  has  its  own  timeline,  and  that  the 
sum  of  these  timelines  would  give  an  overall  $/year  timeline 
for  the  system. 
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Although  this  method  does  not  nail  down  the  exact 
amount  of  money  to  be  spent  each  year,  it  requires  only  four 
time  parameters  from  the  user,  and  it  will  suffice  for 
preliminary  cost  analysis. 


OUTPUT  ANALYSIS 

Now  that  a  set  of  cost  estimates  for  the  system  in 
question  has  been  produced,  through  Monte  Carlo  simulation, 
the  set  must  be  examined.  It  is  wise  to  gather  as  much 
information  as  possible  about  the  simulation  and  its  output 
since  the  experiment  cannot  be  run  with  the  real  world 
system.  The  object  of  this  section  is  to  guide  the  user 
through  descriptive  tests  and  procedures  designed  to  explore 
the  underlying  distribution  of  possible  costs  for  the  system 
in  question. 

FREQUENCY  HISTOGRAM  -  A  frequency  histogram  is  a 
graphical  representation  of  the  number  of  data  points  that 
fall  into  each  of  a  set  of  numerical  ranges,  or  classes. 
Viewing  a  histogram  can  lend  insight  to  how  the  population 
underlying  the  data  sample  is  distributed.  Figure  6  is  an 
example  of  a  histogram  (produced  by  the  Frequency  Histogram 
option  of  this  software  and  converted  to  black  and  white). 
This  figure  shows  the  number  of  data  points  that  fall  into 
each  of  the  numerical  classes.  The  upper  class  bounds  are 
written  at  the  bottom  of  the  graph  under  the  boundaries  of 
the  bars.  The  X  axis  is  in  the  units  of  the  data  set.  The 
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Y  axis  is  the  frequency  of  observations. 

MOMENTS  -  The  first  two  moments  of  a  sample,  the  mean 
and  variance,  give  some  idea  of  the  data  range  and  spread. 
This  information  can  facilitate  comparisons  among  data  sets. 
Also  useful  are  the  extreme  high  and  low  values,  the 
standard  error  of  the  variance  estimator,  and  the  median,  or 
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the  fiftieth  percentile  of  the  data  (see  the  next  heading 
for  more  percentile  information). 

QUANTILE  ESTIMATION  -  Quantiles,  or  percentiles,  deal 
with  the  order,  or  rank,  of  data  points.  The  fiftieth 
percentile  is  the  middle  point  of  the  data  after  the  set  has 
been  sorted  (ie.  of  3,  4,  and  5,  4  is  the  fiftieth 
percentile).  The  fiftieth  percentile  is  also  called  the 
median.  Unless  the  data  of  interest  is  normally  or 
uniformly  distributed,  the  median  is  often  more  useful  than 
the  mean  in  describing  the  typical  value  of  the  data 
points. 

The  value  of  any  quantile,  from  anywhere  above  0  to 
anywhere  below  100,  can  be  estimated.  Thus  at  the  ninetieth 
percentile  value,  X,  there  is  a  ninety  percent  chance  that 
subsequent  random  values  (from  the  same  distribution)  will 
be  lower  than  X.  Another  way  to  state  this  is  that  ninety 
percent  of  the  values  drawn  from  this  distribution  will  be 
less  than  X. 

NON -PARAMETRI C  PROBABILITY  -  At  times  it  would  be  very 
useful  to  know  the  probability  of  drawing  a  number  smaller 
than  some  reference  value  from  a  give  population.  This  is  a 
very  simple  problem  should  you  know  the  true  distribution  of 
the  population  and  its  parameters  (mean,  variance,  high, 
low,  or,  p  etc.).  However,  the  analyst  will  rarely  know  the 
distribution  type  of  the  simulation  output  data.  Rather 
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than  performing  some  lengthy  set  of  weak  tests  to  ascertain 
which  distribution  is  at  hand,  it  is  possible  to  use 
nonparametric  order  statistics  to  estimate  the  probability 
introduced  above. 

The  problem  of  finding  a  probability  associated  with 
some  value,  is  the  opposite  of  quantile  estimation,  finding 
the  value  associated  with  some  level  of  probability.  Both 
quantiles  and  probabilities  are  yet  another  way  to  conduct 
comparisons  among  the  cost  distribution  of  competing 
systems. 

Note  that  the  descriptive  methods  described  so  far  are 
non-parametric,  meaning  they  do  not  require  any  assumptions 
about  the  distribution  underlying  the  sample  data. 

T-TESTS  FOR  SAMPLE  MEANS  -  Through  T-tests  the  analyst 
may  test  the  hypothesis  that  the  means  of  two  systems'  cost 
distributions  are  the  same.  These  tests  are  very  important 
because  point  estimates  of  means,  as  well  as  other 
parameters,  can  be  very  misleading.  The  fact  that  the  mean 
of  one  sample  is  higher  that  the  mean  of  a  sample  drawn  from 
a  different  distribution,  is  not  enough  information  to 
conclude  that  the  underlying  distribution  means  share  the 
same  relationship. 

T-TEST  1  -  This  T-test  is  for  two  independent 
populations  with  the  same  variance  (a2).  Although  the 
variance  need  not  be  known,  the  hypothesis  of  ax2  =  o?  2 
must  be  tested  (with  failure  to  reject)  before  this  T-test 


31 


can  be  used.  This  T-test  assumes  normally  distributed 
samples  are  used,  which  is  a  good  assumption  for  large 
samples  since  X  approches  normality  as  the  sample  size 
approaches  infinity. 

T-TEST  2  -  This  T-test  is  for  two  populations 
with  the  unequal  variances  (a2).  The  variances  need  not  be 
known,  and  need  not  be  tested  for  equality.  However,  this 
test  should  not  be  used  unless  the  test  above  is  invalid  due 
to  differing  variances.  The  test  above  is  a  much  stronger 
test,  meaning  it  will  be  able  to  reject  the  null  hypothesis 
( /i .  =  fj2  )  more  often,  without  more  error.  This  T-test 
assumes  normally  distributed  samples  and  independent 
populations,  like  the  test  above. 

T-TEST  3  -  This  test  is  for  paired  data.  It 

is  not  appropriate  for  analyzing  the  output  from  this  Monte 
Carlo  simulation,  but  it  is  offered  for  use  with  other 
simulations  or  observations.  The  populations  in  question 
should  be  dependent.  Elements  within  pairs  of  observations 
can  and  should  be  correlated,  being  observed  from  similar 
scenarios.  For  a  more  complete  discussion  of  paired  data 
see  Johnson  (374)  or  any  other  elementary  statistics  text. 

NON -PARAMETRIC  TESTING  -  The  following  section  will 
outline  how  to  perform  tests  similar  to  the  T-tests  above, 
but  without  making  assumptions  about  the  underlying 
distributions.  Additionally  these  tests  will  allow 
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hypothesis  testing  for  any  quantile,  or  probability,  for  any 
two  distributions. 

TEST  FOR  EQUAL  QUANTILES  -  Quantile  estimation 
can  be  used  to  test  the  hypothesis  that  the  Nth  quantiles 
of  two  distributions  are  equal,  provided  confidence 
intervals  (Cl's)  have  been  also  estimated.  Simply  stated, 
if  the  Cl  for  the  N  th  quantile  of  sample  set  A  intersects 
with  the  Cl  for  the  Nc"  quantile  of  sample  set  B,  then  fail 
to  reject  the  null  hypothesis.  Should  the  two  Cl's  not 
intersect,  reject  the  null  hypothesis. 

It  should  be  noted  that  such  joint  use  of  the  two 
confidence  intervals  (each  encompassing  a  amount  of  risk) 
compounds  the  risk  associated  with  the  a  values  used  to 
create  the  confidence  intervals. 

For  example,  if  the  two  confidence  intervals  are 
created  with  a  =  0.1  (as  in  the  program)  then  the  total 
confidence  in  the  outcome  of  the  test  is  a  product  of  the 
separate  confidences: 

N 

c  =  l  }  (1  -  or,)  (16) 

or 

C  =  (1  -  or,)  *  (1  -  a  2  )=  0.81  (17) 

providing  the  separate  confidence  intervals  are  independent 
(they  are  when  produced  by  this  Monte  Carlo  simulation 
program).  If  the  two  intervals  were  not  independent  (ie. 
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produced  from  the  same  run  of  some  other  simulation  program) 
the  a's  are  added  to  get  the  overall  amount  of  risk 
associated  with  the  test: 


c  > 

1  -  z  N 

i  =  1 

a  i 

(18) 

or 

c  > 

1  -  (a 

:  +  a  2)  =  0.8 

(19) 

would  describe  the  confidence  in  the  test  above,  if  the 
confidence  intervals  were  not  independent.  This  is  known  as 
the  Bonferroni  inequality  (Kleijnen:41) .  The  actual 
confidence  is  greater  than  or  equal  to  the  resulting 
confidence  factor,  thus  the  name  evolved. 
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IV.  IMPLEMENTATION 


RANDOM  VARIABLES 

The  heart  of  a  Monte  Carlo  simulation  is  the  set  of 
random  number  generators,  and  the  heart  of  all  the  random 
number  generators  is  the  uni form (0,1)  generator  used  to  feed 
them.  This  U(0,1)  generator  was  taken  from  Numerical 
Recipes;  The  Art  of  Scientific  Computing  (Press: 199).  This 
generator  was  tested  for  mean,  variance,  and  serial 
correlation  (see  Appendix  B).  There  were  no  apparent 
problems. 

Although  it  is  possible  to  speed  up  the  random  number 
generators  by  programming  them  in  assembly  language,  this 
hampers  flexibility  in  support  of  the  code.  So  assembly 
language  was  not  used.  All  the  univariate  distributions 
below  are  available  for  single  variable  cost  components  as 
well  as  CER  input  variables. 

BETA  SAMPLING  -  The  nine  beta  distributions  shown  in 
Figure  7,  taken  from  Dienemann,  provide  a  wide  range  of 
characteristics.  The  beta  deviates  are  generated  using 
the  ratio  of  gammas  discussed  in  Chapter  II,  Eq(3).  The 
gamma  variables  used  for  the  ratios  are  generated  using 
either  Fishman's  or  Wallace's  method  (one  is  much  faster  for 
a  £  1.0).  Both  are  discussed  in  Chapter  II.  The  beta 
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deviate  is  generated  on  the  (0,1)  interval  and  multiplied  by 
(hi-low)  and  then  added  to  the  low  value  specified  by  the 
user: 

Beta  (a,/?)  (h,(lo,;  =  Beta(cr,/?)  (3>1)  *  (hi-low)  +  low  (20) 

NORMAL  SAMPLING  -  In  addition,  the  normal  distribution 
is  also  available  for  CER  explanatory  variables  and  single 
variable  cost  components.  The  analyst  should  exercise 
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caution  when  specifying  a  cost  as  a  normally  distributed 
deviate  since  normally  distributed  variables  can  easily  have 
negative  values  (which  make  no  sense  in  terms  of  cost  and 
cannot  be  used  in  power  transformations).  The  normal 
deviate  is  calculate  by  the  following  equation  (Ross:447): 

N  ( 0 , 1 )  =  (-2  ln(U  0, 1 ) ) ) 1/2  *  cos  ( 2n  U2(0,1))  (21) 

This  produces  a  standard  normal  deviate.  To  achieve  a 
deviate  from  the  proper  distribution,  the  value  must  be 
multiplied  by  the  standard  deviation  and  added  to  the  mean: 

N(/;,a2)  =  N(  0 , 1 )  *  (a)  +  fu  (22) 

UNIFORM  SAMPLING  -  [The  easiest  of  them  all.]  A 
uniform  sample  is  create  by  multiplying  the  U(0,1)  deviate 
by  the  (hi-low)  and  adding  it  to  the  low: 

U( low, hi)  =  U(0,1)  *  (hi-low)  +  low  (23) 

MULTIVARIATE  NORMAL  SAMPLING  -  This  is  the  most  direct 
and  technically  pleasing  way  to  account  for  the  variance  of 
the  (3  parameters  of  the  CER's.  The  (3's  must  be  distributed 
according  to  their  means  and  the  covariance  matrix, 

0est.  ~  (/MX'X)-1  a2).  The  following  set  of  steps  captures 
the  essence  of  the  process: 
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1)  reduce  the  covariance  matrix  to  its  Cholesky 
square  root  (Maindonald: 17 ) 

2)  draw  a  vector  of  independent,  standard  normal 
deviates 

3)  multiply  the  vector  by  the  Cholesky  matrix 

4 )  add  the  estimated  means  to  the  remaining  vector 
of  deviates. 


or 


£sa^’e  =  C  *  N  +  £,at 

where 


(24) 


C 

N 

deviates 

£-  HAT 
^sample 


=  Cholesky  square  root  of  covariance  matrix 
=  vector  of  independent  standard  normal 

=  estimated  means 

=  one  sampled  vector  of  dependent  normals 


This  is  the  same  type  of  algorithm  used  by  the  IMSL  library 
routine. 


COST  ESTIMATION 

Each  CER  is  evaluated  according  to  its  type.  Linear 
CER's  are  the  simplest  (described  in  Chapter  III).  The 
natural  logarithm  CER's  are  handled  much  like  the  linear 
CER's  with  two  exceptions: 

1)  after  each  explanatory  variable  is  sampled,  its 
natural  log  is  taken 

2)  after  the  rolling  sum  for  that  CER  is  totalled 
its  exponent  is  taken  (inverse  natural  log,  ie. 

€?ota1  )  . 
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Let  it  be  clear  that  the  X  variable  must  be  specified 
in  its  actual  form  for  Ln  CER's;  the  program  will  take  the 
In  of  the  explanatory  variables  during  the  calculations. 

The  output  variable  is  return  in  its  standard  form  as  well, 
the  exponentiation  is  taken  care  of  by  the  program. 

For  example,  suppose 

Y  =  X  X  /?  (24) 

and  the  X  variables  are  uniformly  distributed  between  5  and 
10.  The  (3  parameters  are  estimated  by: 

Ln(y)  =  (31  Ln(X  x)  +  (32  Ln(X  z) .  (25) 

with  linear  regression  software.  For  the  purposes  of  this 
program,  X:  and  X  2  should  be  described  as  uniform  with 
low=5  and  hi=10.  The  program  will  handle  the  natural 
logarithms  and  output  Y  (not  Ln[yJ). 

The  learning  curve  CER  adds  one  more  twist.  It  too  is 
a  natural  log  process,  but  after  the  final  CER  value  (eToul) 
is  calculated,  it  is  multiplied  by  Xj,  the  first 
explanatory  variable.  This  is  because  learning  curve  CER's 
apply  to  individual  parts,  needing  to  be  multiplied  by  the 
total  number  of  parts  purchased  (Xj)  to  find  the  total  cost 
for  that  component.  Like  the  Ln  CER's,  the  variables  for 
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the  learning  curve  CER's  should  be  specified  in  standard 
form  (non-log). 

POWER  TRANSFORMATIONS 

Power  transformations  on  the  input  variables  can  lend 
extra  explanatory  power  to  linear  equations.  In  essence, 
these  transformations  allow  nonlinear  fitting  with  linear 
software  and  methodology. 

The  process  for  finding  the  optimal  power 
transformations  (Box:)  has  been  implemented  along  with  a 
basic  regression  tool  in  the  limited  version  of  MATRIX  (also 
written  by  the  author).  This  implementation  of  the  Box 
algorithm  accepts  up  to  39  input  variables  and  up  to  80 
observations,  which  is  usually  adequate  in  light  of  the 
small  data  sets  used  to  produce  CER's.  It  should  be  noted 
that  power  transformations  can  only  be  estimated  by  using 
the  original  data.  The  user  must  first  estimate  the  power 
transformation,  then  transform  the  data  and  generate  his  own 
new  CER. 

Note:  MATRIX  cannot  take  a  power  transformation  on  a 
variable  with  a  negative  value.  Ensure  that  no  power 
transformation  is  specified  for  any  variable  that  can 
possibly  be  negative.  Be  especially  wary  of  normally 
distributed  variables. 

Use  of  this  program  will  provide  the  uter  with  the 
optimal  power  transformation  value  (a)  for  each  explanatory 
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variable  (one  CER  at  a  time).  Since  this  is  accomplished 
through  successive  regressions,  the  original  data  used  to 
generate  the  CER  must  also  be  used  to  find  the  correct 
transformation . 

For  example,  if  the  fixed  part  of  the  model  is 
actually: 


Y  =  X  :1 2 3 4  +  X  21/3  (26) 

the  algorithm  will  return  a  values  of  4.0  and  0.33  (or  very 
near  there)  for  X:  and  X  2  respectively  when  given  the  X 
matrix  and  Y  vector.  The  analyst  must  then  make  the 
transformations  to  the  X  data  and  estimate  a  new  CER  (MATRIX 
can  do  both).  The  a  values  and  the  new  (3  values  (along  with 
covariances  and  MSE)  that  are  estimated  using  the  MATRIX 
program  are  then  entered  during  the  CER  definition  phase  of 
the  model  builder  program. 

Box  and  Draper  (Box: 296)  offer  a  lengthy  discussion  on 
process  of  estimating  power  transormations  which  boils  down 
to  the  following  steps: 

1)  fit  a  the  model  Y  u  =  2  fi  ,  X  i  +  error  u 

2)  form  Z  iu  =  p  ,  *  X  1u  *  Ln(X  1u) 

3)  fit  a  model  with  the  Z's  as  new  input  variables, 

Yu  =  Z/?iXi+Ai  Z,  +  error  u 

i 

4)  for  A  i  that  are  significant  (using  t-test),  set 
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5)  raise  X  i  to  the  a  i  power  for  all  a  1  that  are 
significant,  across  all  observations. 

6)  repeat  steps  1-5  until  no  Z's  are  significant, 
keeping  track  of  the  cumulative  effect  of  each  a. 

TIME  PHASED  SPENDING 

Remember  that  each  CER  of  single  variable  cost 
component  has  its  own  spending  timeline  defined  by  NOCOST, 
PI,  CON,  and  PO.  Figure  5  shows  the  spending  time  line  for 
a  CER.  The  total  length  of  this  spending  process  is  seven 
years  (total  of  NOCOST,  PI,  CON,  and  PO).  This  means  that 
the  money  associated  with  the  CER  (the  output  variable)  will 
be  spent  in  seven  lump  sums,  one  payment  at  the  end  of  each 
year  (the  model  assumes  spending  at  the  end  of  each  period). 

NOTE:  The  actual  spending  profile  should  be  based  upon 
the  likely  pattern  of  payments  to  the  constractor  (progress 
payments  are  often  embodied  in  the  contract).  This  may  or 
may  not  correspond  to  the  expected  delivery  date(s)  of  the 
hardware. 

The  goal  is  to  find  how  much  of  the  money  is  spent  each 
year,  as  specified  by  the  four  time  period  values.  The  sum 
to  be  paid  at  the  end  of  each  year  is  proportional  to  the 
amount  of  area  under  the  curve  in  the  block  for  that  year. 

In  Figure  8,  the  area  of  C,  associated  with  year  1,  is  just 
over  3%  of  the  total  area: 

proportion  =  C  /  (A  +  B)  =  0.1666  /  5.5  =  .03  (27) 
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Figure  8  Present  value  calculations  for  time  phased 
spending. 


That  means  that  just  over  3%  of  the  total  cost  associated 
with  this  CER  will  be  incurred  at  the  end  of  the  first 
year.  The  sum  due  at  the  end  of  each  year  is  calculated  in 
the  same  basic  geometric  fashion. 
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Once  the  total  cost  associated  with  one  cost  element 


has  been  broken  down  into  yearly  expenditures,  each 
expenditure  must  be  adjusted  to  a  present  value.  The 
adjustment  is  made  with  Eq  (13)  from  Chapter  III.  The  sum 
of  all  these  present  values: 

N 

Component  cost  =  I  PV  i  (28) 

where 

N  =  nocost+pi+con+po  (years  over  which  to  spend  money) 

is  the  final  cost  associated  with  this  one  cost  element  (CER 
in  this  case).  The  total  system  cost  (life  cycle  cost)  will 
be  the  sum  of  the  present  values  of  all  the  cost  components: 


M  K 

TOTAL  COST  =  Z  PV  (VAR  j  )  +  Z  PV  (CERJ  (29) 

J=1  “  P=1 

WHERE 

M  =  number  of  variable  cost  components 

K  =  number  of  CER's 


Software  Production 

The  routines  have  been  be  consolidated  into  a  single 
program  with  a  homogenous  control  structure.  The  user 
interface  is  a  system  of  pop-up  menus  and  windows  with 
cursor  selection  for  novice  users,  as  well  as  first  letter 
selection  to  facilitate  "command  language"  use  by 
experienced  users. 
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poGnmantation 


The  User's  Manual  (Appendix  A)  will  provide  every  bit 
of  information  needed  to  operate  this  software.  The 
function  of  each  menu  item  is  discussed,  and  a  one  example 
tutorial  is  provided. 

Appendix  C  provides  all  the  source  code  for  the  Monte 
Carlo  simulation  program  and  the  MATRIX  program.  Inline 
comments  and  the  readable  style  of  Pascal  code  make  it  quite 
understandable. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 


THE  GOAL 

The  goal  of  this  effort  was  to  develop  a  tool  to  enable 
quick  preliminary  analysis  and  comparison  of  weapon  system 
costs.  That  goal  was  realized.  The  PC  environment  is  quite 
adequate  for  the  simulation  of  LCC  costs.  Parametric  LCC 
estimation  is  both  quick  and  easy. 

VALIDATION/VERIFICATION 

Verification  was  performed  on  each  procedure  and  the 
system  as  a  whole.  Remember  that  verification  is  checking 
to  see  if  the  code  performs  as  intended.  Validation,  on  the 
other  hand,  is  checking  to  see  that  the  methodology  that  has 
been  implemented  in  the  code  actually  model  the  real  world 
closely  enough. 

Validation  is  difficult  because  this  software  is  a 
model  building  tool.  The  user  builds  his  own  model  of  the 
real  world  with  the  CER's  and  single  variable  cost 
components  he  uses  to  describe  the  costs. 

This  program  will  accurately  and  consistently  produce 
forecasts  of  the  costs,  as  they  are  described  by  the  user. 
Whether  or  not  the  user's  model  accurately  captures  the 
essence  of  his  part  of  reality  is  beyond  the  control  of  the 
author.  Bottom  line:  the  user  must  validate  his  own  model. 
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RECOMMENDATIONS  for  future  research 


VARIANCE  REDUCTION  -  Each  output  parameter  generated  by 
any  simulation  is  an  estimate.  It  is  only  natural  to  want 
the  best  possible  estimate  of  each  parameter.  Variance 
reduction  offers  the  possibility  of  increasing  the  power  of 
this  simulation  software.  Whether  or  not  the  common 
techniques  of  variance  reduction  can  tighten  the  confidence 
intervals  generated  by  this  software  without  biasing  the 
estimates  of  the  output  distribution's  spread  is  not  clear 
to  the  author.  Due  to  time  constraints  sufficient  research 
and  experimentation  was  not  performed  in  this  area. 

Since  all  source  code  has  been  documented  and  provided 
herein,  the  software  should  not  cease  to  develop.  In 
particular,  the  use  of  variance  reduction  could  be  studied 
through  experimentation.  Several  runs  of  a  model  using 
various  types  of  variance  reduction,  and  none,  could  provide 
adequate  data  for  an  analysis  of  variance  describing  the 
effect  of  the  different  variance  reduction  techniques. 

PARAMETRIC  LCC  ESTIMATION  VALIDATION  -  Now  that  a 
powerful  and  easy  to  use  tool  has  been  provided,  the 
validation  of  parametric  cost  modeling  can  be  undertaken 
much  more  swiftly.  Essentially,  a  follow-on  to  researcher 
could  probe  that  actual  value  of  the  modeling  methodology 
without  having  to  sweat  the  details  of  implementation. 
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It  has  been  suggested  that 


RANDOM  DEVIATE  GENERATION  - 

triangular  distributions  can  be  used  in  place  of  beta 
distributions  with  little  loss  in  accuracy.  If  this  is  the 
case,  then  a  great  deal  of  time  may  be  saved  by  replacing 
the  acceptance/rejection  generators  used  for  beta  deviates. 


APPENDIX  A:  INTERACTIVE  LIFE  CYCLE  COST  FORECASTING  TOOL 


USERS'  MANUAL 


APPENDIX  OVERVIEW 


The  purpose  of  this  users'  guide  is  to  assist  with  the 
actual  keyboard  entries  necessary  to  use  the  software.  The 
three  sections  of  this  manual  do  no  contain  sufficient 
information  to  use  the  software  properly.  Theory, 
methodology,  and  assumptions  should  be  reviewed  in  the 
preceding  chapters  before  the  software  is  used. 

The  fist  section  deals  with  the  user  environment;  the 
menu  system  and  the  entry  conventions  required  by  the 
language.  The  second  section  is  a  listing  and  description 
of  the  functions  available.  Provided  in  the  third  section 
is  a  numerical  example  with  a  keystroke  by  keystroke 
tutorial. 

THE  USER  ENVIRONMENT 

RESPONDING  TO  PROMPTS  -  There  are  certain  conventions 
that  must  be  observed  when  using  this  software,  most  of  them 
deal  with  data  entry.  Following  is  a  list  of  the  most 
commonly  violated  conventions. 
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REAL  NUMBERS  -  real  numbers  (eg.  2321.234  or  0.345) 
must  be  entered  with  at  least  one  digit  left  of  the  decimal 
and  no  commas.  Reals  less  than  one  may  not  be  entered 
without  a  leading  0.  For  example,  .5  is  not  allowed,  nor 
are  fractions  such  as  1/2;  0.5  is  the  only  way  to  enter  the 
value.  The  value  10,567  may  only  be  entered  as  10567  or 
10567.00  or  1.0567E4.  -0.03329  can  only  be  entered  as  such 
or  as  -3.329E-2.  Notice  that  scientific  notation  is 
allowed,  as  used  in  the  preceding  examples. 

INTEGERS  -  integers  must  be  entered  much  like  reals 
except  that  decimals  and  digits  left  of  them  are  not 
allowed.  Like  with  reals,  commas  are  not  allowed.  For 
integers  scientific  notation  is  not  allowed. 

FILE  NAMES  -  When  the  user  is  prompted  for  a 
filename,  a  string  of  up  to  eight  characters  may  be  used. 
These  characters  may  be  letters,  numbers  or  symbols.  No 
extension  is  required  or  allowed.  Extensions  are  assigned 
automatically  depending  on  the  file  type.  Data  set  files  are 
give  .SET  and  the  LCC  system  files  are  given  the  .STM 
extension.  Following  each  file  name  prompt  will  be  a 
default  name.  To  accept  the  default  name  simply  press  CR. 

EXCEPTIONS  -  The  above  rule  concerning  file 
extensions  does  not  apply  when  the  user  is  prompted  for  the 
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file  to  read  in  the  READ  ASCII  option.  Nor  does  it  apply 
when  the  user  is  prompted  for  the  filename  to  write  in  the 
WRITE  ASCII  option.  These  filenames  should  be  given  the 
appropriate  extensions  since  they  apply  to  ASCII  files,  not 
data  set  file  used  by  this  software.  The  data  set  files 
will  still  retain  their  .SET  extensions. 

THE  SCREEN  PRINTING  PROMPT  -  In  some  of  the 
routines,  the  user  has  the  option  of  getting  a  printout  of 
the  graphics  that  will  appear  on  the  screen  (FREQUENCY 
HISTOGRAM,  TIME  SERIES  PLOT,  MOMENTS,  XY  PLOTS).  Simply 
answering  yes  to  the  prompt  will  not  ensure  that  a  hardcopy 
of  the  screen  will  be  produced.  This  option  works  only  if  a 
screen  dump  utility  has  been  installed. 

With  some  systems  the  DOS  command  GRAPHICS  is 
sufficient  (this  DOS  feature  does  not  seem  to  work  for  all 
computer -monitor-printer  combinations).  Some  printer 
manufacturers  provide  custom  screen  dump  routines  for  their 
printers.  Another  possibility  is  using  a  public  domain  dump 
utility  such  as  EGADMP  that  is  provided  with  the  CHART 
package. 

Once  one  of  these  utilities  has  been  installed, 
graphics  may  be  printed  by  requesting  a  dump  from  the 
routine,  or  simply  pressing  SHIFT  and  PRTSCR  simultaneously 
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while  the  graphics  are  on  the  screen.  The  same  action  will 
dump  a  text  screen  to  the  printer.  If  lines  and  boxes  do 
not  appear  on  the  hard  copy  as  they  do  on  the  text  screen, 
exit  the  program  and  issue  the  DOS  command  GRAFTABL.  This 
enables  DOS  to  send  the  extended  ASCII  characters  that 
define  lines  and  corners  to  the  printer.  Some  printers 
require  that  the  IBM  mode  be  activated  to  print  these 
symbols.  Check  your  printer  manual. 

MENU  OPERATION  -  This  sub-section  deals  with  the 
specific  operation  of  the  menus.  This  is  a  custom,  pop-up 
menu  system  written  by  the  author  in  Turbo  Pascal  4.0. 

Figure  9  is  a  black  and  white  reproduction  of  the  main  menu. 
This  menu  offers  six  choices;  the  data  menu,  the  statistics 
menu,  the  T-testing  menu,  the  Files  menu,  the  Random 
deviates  menu,  and  setting  a  new  seed  for  the  random  number 
generators . 

A  menu  choice  is  selected  by  pressing  the  key 
corresponding  to  the  first  letter  of  the  choice.  Note  that 
all  the  first  letters  are  in  bold  type  to  remind  you  of  this 
selection  method.  To  select  the  statistics  menu  press  the  S 
key. 

Another  way  to  select  a  menu  item  is  to  use  the  arrow 
keys  to  highlight  the  desired  item  and  press  the  carriage 
return  (or  enter)  key.  Notice  that  the  Data  choice  is 
underlined  in  Figure  9.  This  indicates  that  this  item  would 
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be  highlighted  in  a  different  color  on  the  computer  screen. 
Pushing  the  down  arrow  once  would  cause  the  Data  item  to 
return  to  normal  colors  and  the  Statistics  item  to  become 
highlighted.  This  is  much  easier  to  see  with  the  software 
actually  running  on  the  color  screen. 

If  a  mouse  is  installed  with  cursor  key  emulation,  the 
mouse  may  be  used  rather  than  the  cursor  keys.  One  of  the 
mouse  buttons  must  emulate  the  carriage  return  key  for 
actually  selecting  one  of  the  menu  items.  A  mouse  driver  is 
provided  with  the  package  ( for  the  Genius  family  of  serial 
mice) . 

The  QUIT  option  on  the  main  menu  is  replace  by  a  BACKUP 
option  on  each  subordinate  menu.  The  BACKUP  option  takes 
you  back  up  one  level  to  the  previous  menu.  For  example, 
selecting  the  BACKUP  choice  from  the  data  menu  will  make  the 
program  exit  the  data  menu  and  return  to  the  main  menu. 
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GENERIC  MODEL  BUILDER  —  by  Dave  Sumner 


Figure  9 


MENU  LAYOUT  -  Figure  10  shows  the  layout  of  the  menus. 
This  will  make  it  easier  to  find  a  function  without  roaming 
through  the  entire  menu  system.  Unlike  some  commercial 
packages  that  claim  to  enable  their  users  (pun  intended ), 
these  routines  are  laid  out  in  logical  groupings. 

Some  menu  choices  call  another  menu,  while  others 
perform  functions.  The  thick  boxes  with  capital  captions  in 
Figure  10  represent  menus  while  the  thin  boxes  with  lower 
case  captions  are  procedures.  For  example,  the  DEFINE 
option  on  the  DATA  menu  is  actually  a  subordinate  menu 
offering  several  choices,  while  the  ENTER  option  is  simply  a 
keyboard  data  entry  procedure. 
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AVAILABLE  FUNCTIONS 


DATA  MENU  -  The  data  menu  handles  the  'administrative' 
duties  such  as  data  entry,  correction,  combination,  and 
viewing.  One  mathematical  routine,  averaging,  is  offered. 

ENTER  -  Allows  for  data  entry  from  the  keyboard. 
Saves  the  data  set  to  a  .SET  file  for  use  with  the 
statistical  functions.  See  READ  ASCII  under  the  file  menu. 
After  selecting  this  item  a  work  window  will  be  opened  and 
the  user  will  be  prompted  for  a  file  name  under  which  to 
store  the  new  data  set.  If  the  file  name  entered  already 
appears  on  disk,  the  user  will  be  notified  and  asked  if  he 
wishes  to  proceed  (overwrite).  Answering  yes  will  not 
overwrite  the  file  yet.  Enter  one  data  value  at  a  time, 
pressing  the  carriage  return  (CR)  after  each  value.  After 
typing  in  all  the  values,  enter  a  "q"  at  the  next  prompt. 
The  user  will  get  a  chance  to  change  the  name  of  the  new 
data  set,  or  overwrite  the  old  data  set  if  a  data  set  with 
the  same  name  already  exists. 

VIEW  -  This  option  writes  the  data  values  to  the 
screen.  It  will  scroll  without  pausing  if  there  are  more 
values  than  space  on  the  screen.  The  <control  S>  keystroke 
can  be  used  to  stop  the  scrolling,  but  a  better  idea  is  to 
write  the  data  to  an  ASCII  file  (see  FILE  menu)  and  view  it 
with  your  favorite  editor. 

MODIFY  -  Allows  the  user  to  change  any  data  point  in 
a  set  providing  the  user  knows  the  number  of  the  point  that 
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needs  to  be  changed.  Not  very  useful  for  large  data  secs. 

It  is  easier  to  write  the  data  to  an  ASCII  file,  edit  with 
your  own  editor,  then  read  the  ASCII  file  back  in  (see  READ 
ASCII  and  WRITE  ASCII  at  the  FILE  menu). 

COMBINE  -  Prompts  the  user  for  two  data  set  names. 
Reads  the  sets  from  disk,  concatenates  the  second  file  onto 
the  end  of  the  first  and  saves  the  new  data  set  to  disk. 

AVERAGE  -  The  only  mathematical  routine  on  the  DATA 
menu.  Will  prompt  the  user  for  a  data  set  name.  After 
reading  the  set  from  disk  the  routine  will  ask  for  another 
data  set  name.  The  values  of  the  two  sets  will  be  averaged, 
ie.  the  mean  of  the  first  yalue  of  each  set,  then  the  mean 
of  the  second  value  from  each  set.  The  routine  will 
continue  to  prompt  the  user  until  the  user  enters  "q"  to 
indicate  that  no  more  files  should  be  averaged.  This  is 
useful  for  averaging  the  observations  between  simulations 
runs  wiLhoul  averaging  within  the  runs,  for  tasks  such  as 
beginning  of  steady  state  identification. 

DEFINE  SYSTEM  -  This  item  calls  another  menu,  the 
LCC  system  definition  menu.  This  is  where  cost  simulation 
begins.  Here  a  system  is  defined,  with  variables  and  CER's, 
so  a  Monte  Carlo  simulation  can  be  run  to  forecast  the  cost 
distribution  of  the  system  in  question. 

VARIABLES  -  This  item  allows  the  user  to  define 
the  single  variable  cost  components.  The  user  will  be 
prompted  for  a  filename.  If  the  file  already  exists,  the 
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" —  File  read  message  will  indicate  that  the  user  is 
updating  a  file  that  already  exists.  If  the  name  is  new  and 
unique,  the  New  file  message  will  indicate  so.  Now 
enter  the  number  of  single  variable  cost  components  for  this 
system.  For  each  variable  enter  the  variable  type,  an 
integer  from  Figure  11,  along  with  the  appropriate 
parameters  as  they  are  prompted  for.  Be  sure  to  know  the 
NOCOST,  PI,  CON,  and  PO  values  before  sitting  down  to  define 
the  variables. 

CER'S  -  Prompts  for  information  defining  CER's. 
File  name  prompt  and  message  are  exactly  like  above.  Enter 
the  number  of  CER's,  and  the  number  of  the  CER  to  be  defined 
now  (each  CER  must  be  defined  with  a  separate  pass  through 
this  option).  As  the  prompts  suggest,  enter  all  the 
information  associated  with  the  CER.  First  the  number  of 
input  variables  for  the  CER.  Next  define  each  variable  and 
its  power  transformation.  If  no  transformation  is  desired 
enter  "1.0". 

After  the  input  variables  are  defined,  enter  the 
estimated  (3  parameters.  Next  enter  the  covariances,  paying 
careful  attention  to  which  covariance  the  routine  is  asking 
for  (eg.  cov  [  1 , 1  ]  =var  [(3  ,  ] ,  cov[  1 , 2  ]  =cov  [f3  .  I32]).  All  that 

remains  is  to  enter  the  MSE  from  the  regression  used  to 
determine  the  CER. 

As  noted  above  this  routine  must  be  called  three  times 
to  define  three  CER's.  It  is  a  good  idea  to  save  the  file 
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Type  11  =  Normal  distribution.  Mean  and  ^ar  user  defined. 


Figure  11  Available  random  number  distributions 
(modified  from  Dienemann: 14 ) 
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each  time  a  CER  is  added,  just  in  case. 

RATE  -  Prompts  the  user  for  the  interest  rate 
to  use  for  the  present  values.  This  interest  rate  should  be 
entered  as  an  Annual  Percentage  Rate  (APR).  For  example  if 
the  current  interest  rate  is  10%  annually,  enter  10.0.  If 
no  interest  rate  is  desired  enter  0.0.  There  must  be  a 
value  for  interest  rate. 

SAVE  -  Saves  the  information  entered  to  a 
system  definition  file  with  a  .STM  extension  for  use  with 
the  Monte  Carlo  simulation  module.  It  is  prudent  to  save 
the  system  file  between  each  phase  of  definition  (variables, 
CER's,  and  interest  rate). 

STATISTICS  MENU  -  This  is  the  section  of  the  program 
that  does  most  of  the  actual  work.  Nearly  all  the  numerical 
processing  routines  are  handled  here. 

MOMENTS  -  Prompts  user  for  a  data  set  name. 

Calculates  the  mean,  median,  variance,  standard  deviation, 
low,  hi,  and  number  of  data  points  for  the  set. 

Additionally  a  1  axis  plot  of  the  data  is  created  to 
facilitate  identification  of  outliers,  or  clusters. 

Figure  12  shows  the  display  generated  by  this  routine. 
The  two  tick  marks  near  the  center  of  the  number  line  are 
the  mean  and  the  median  (color  coded  with  the  words  in  the 
table  no  the  actual  screen).  Note  that  the  data  points  are 
lined  up  along  a  number  line.  Note  also  that  if  more  than 
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Pigure  12  Example  of  MOMENTS  output. 


one  data  point  has  the  same  value,  then  all  the  data  points 
(dots)  are  stack  vertically  at  the  position  on  the  number 
line  associated  with  that  value.  This  can  give  the  analyst 
some  idea  of  the  spread,  or  distribution  of  the  data,  but 
the  frequency  histogram  is  more  suited  for  this  purpose. 

The  jackknife  statistics  given  are  an  unbiased  estimate 
of  the  population  variance  (Z  mean)  and  the  standard  error 
of  that  estimator  (Z  std  dev).  These  figures  are  used  to 
draw  a  symmetric  confidence  interval  on  the  population 
variance,  in  the  same  way  the  sample  mean  and  sample 
standard  deviation  are  used  to  draw  a  Cl  for  the  population 
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mean.  The  jackknife  statistics  are  calculated  only  at  the 
user's  request  (by  selecting  ”J"  while  viewing  the  plot). 

FREQUENCY  HISTOGRAM  -  After  prompting  the  user  for  a 
data  set  name,  this  routine  will  ask  a  series  of  questions, 
listed  below  are  the  options  corresponding  to  the  questions. 

1)  Printout  -  Answer  by  selecting  "y"  or  "n".  This 
forces  a  screen  dump,  making  a  hardcopy  of  the  graph.  See 
the  conventions  section  for  more  information. 

2 )  Number  of  classes  -  Answer  by  entering  an  integer 
between  5  and  20,  inclusive.  Sets  the  number  of  classes,  or 
ranges,  and  the  number  of  bars  on  the  graph. 

3)  Automatic  classing  -  Answer  by  selecting  "y"  or  "n". 
If  "y"  is  chosen  the  range  of  data  will  be  separated  into  N 
equal  width  ranges,  N  being  the  chosen  number  of  classes. 
Otherwise,  the  user  will  be  prompted  for  the  upper  limit  for 
each  class.  This  is  useful  for  viewing  two  distributions 
under  the  class  structure. 

Figure  13  offers  a  sample  histogram  with  nine  classes. 
The  number  of  classes  will  vary  with  number  of  samples  and 
type  of  data,  but  nine  is  usually  a  good  starting  place. 

TIME  PLOT  -  After  prompting  user  for  a  data  set 
name,  this  routine  will  offer  the  option  of  using  a  moving 
average.  If  the  user  enters  "y",  he  will  then  be  prompted 
for  any  odd  integer,  specifying  the  size  of  the  moving 
average  window.  This  will  result  in  the  plotting  of  the 
moving  average  points,  rather  than  the  actual  data.  This 
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option  is  good  for  checking  the  data  for  serial  correlation. 
This  is  not  useful  for  the  output  of  this  model  building 
program. 

Figure  14  shows  an  example  of  a  time  series  data  plot. 
Note  that  the  text  displays  the  size  of  the  moving  average 
window  (0  if  moving  average  is  not  used).  The  line  through 
the  data  represents  the  mean  (color  coded  to  the  word  mean 
and  the  number  on  the  actual  screen).  Only  the  first  500 
data  points  will  be  plotted. 

XY  PLOT  -  Provides  an  X  vs  Y  plot  of  two  data  sets. 
The  user  is  prompted  for  two  data  set  names.  One  axis  is 
scaled  to  one  data  set,  the  other  axis  is  scaled  to  the 
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Figure  14  Time  series  option  output. 


other  data  set.  The  data  points  are  plotted  as  pairs  such 
as.  (dataA[l] ,dataB[l] ) ,  (dataA[2] ,dataB[2] ) ,  and  so  on.  The 
means  of  the  two  data  sets  are  drawn  as  lines  through  the 
appropriate  axis  (these  are  color  coded  with  the  file  names 
on  the  screen).  This  option  is  useful  for  identifying 
correlation  between  two  data  sets.  A  discernable  pattern, 
suggests  that  there  may  be  some  dependence  or  relationship 
between  the  two  variables.  Figure  15  shows  a  graph  made  by 
the  XYplot  option. 

QUANTILE  ESTIMATION  -  After  the  user  is  prompted  for 
the  data  set  name/  the  quantile  estimates  will  be  displayed 
on  the  screen.  Point  estimates  and  90%  confidence  intervals 
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will  be  provided  for  10%,  20%,  30%,  40%,  50%,  60%,  70%,  80%, 
90%,  25%,  and  75%. 


WON-PARAMETRIC  PROBABILITY  -  This  routine  will 
prompt  the  user  for  a  filename,  like  the  QUANTILE  routine. 
Then  the  routine  will  prompt  for  a  reference  value.  The 
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routine  will  display  the  probability  that  the  next  value 
drawn  from  the  data  set  will  be  less  than  the  reference 
value.  A  90%  confidence  interval  is  provided. 

T-TESTING  MENU  -  This  menu  offers  the  three  T-tests 
described  in  Chapter  III.  For  more  information  concerning 
the  assumptions  associated  with  each  test,  see  Chapter  III. 

T-TEST  1  -  The  user  will  be  asked  for  the  names  of 
the  two  data  sets  to  compare.  Next  the  user  will  be 
prompted  for  the  F-test  a  value.  After  the  F-test  is 
performed  with  failure  to  reject,  the  user  will  be  prompted 
for  the  a  value  for  the  T-test.  The  results  will  be 
displayed. 

T-TESTS  2&3  -  The  user  will  be  asked  for  the  names 
of  the  two  data  sets  to  compare.  Next  the  user  will  be 
prompted  for  the  T-test  a  value.  The  results  will  be 
displayed. 

FILES  MENU  -  This  menu  handles  importing  and  exporting 
ASCII  text  files  and  checking  the  contents  of  the  current 
disk  drive. 

READ  ASCII  -  Reads  a  single  column  of  textual 
numbers  into  a  data  set  file.  Multiple  columns  and 
nonnumeric  characters  are  not  allowed.  The  user  is  prompted 
for  the  name  of  the  ASCII  file  to  read  (include  the 
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extension  when  answering  this  prompt)  and  then  the  name 
under  which  to  store  the  data  set. 

WRITE  ASCII  -  Writes  a  single  column  of  textual 
numbers  into  an  ASCII  file.  The  user  is  prompted  for  the 
name  of  the  data  set  file  holding  the  information  and  then 
the  name  of  the  ASCII  file  to  write  (include  the  extension 
when  answering  this  prompt). 

SET  DIRECTORY  -  Provides  a  list  of  the  files  on  the 
current  disk  drive  that  have  the  .SET  extension. 

DISK  DIRECTORY  -  Provides  a  list  of  the  files  on  the 
current  disk  drive  according  to  the  file  specification 
entered  by  the  user.  For  example ,  to  see  all  the  files  that 
have  the  .DAT  extension,  enter  * .DAT  at  the  file 
specification  prompt. 

RANDOM  DEVIATES  MENU  -  This  menu  handles  the  routines 
that  generate  random  deviates.  The  user  may  write  deviates 
to  a  file  or  use  them  to  simulate  Life  Cycle  Costs. 

RANDOM  DEVIATE  FILES  -  The  first  three  options. 
Uniform  Random,  Normal  Random,  and  Generate  Betas  prompt  the 
user  for  the  appropriate  distribution  parameters,  how  many 
deviates  to  generate,  and  the  name  of  the  .SET  file  in  which 
to  save  the  deviates. 

MULTI -NORMAL  -  Generates  vectors  of  dependent  normal 
variates.  First  the  user  is  prompted  for  the  number  of 
variables  in  the  dependent  set,  ten  is  the  maximum  allowed. 
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Next  the  user  is  prompted  for  the  mean  of  each  variable. 
After  the  means  are  entered,  the  user  is  prompted  to  enter 
the  covariances  of  the  variables.  The  user  is  also  asked 
how  many  vectors  to  generate.  Each  set  of  samples  is 
written  as  a  row  vector  to  the  file  MULTNORM.DAT. 

SIMULATE  COSTS  -  This  is  the  routine  that  generates 
Monte  Carlo  samples  of  LCC's.  The  user  will  be  prompted 
for  the  name  of  the  system  (.STM)  file  in  which  the  costs 
are  described.  See  DESCRIBE  SYS  under  the  DATA  menu  for 
more  information.  The  user  will  then  be  prompted  for  the 
number  of  runs,  2500  is  the  maximum.  Finally  the  user  is 
asked  for  a  file  name  for  the  resulting  cost  estimates. 
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TUTORIAL 


This  section  of  the  users'  manual  is  a  walk  through  of 
the  software  with  a  numerical  example.  A  system  will  be 
described,  entered  into  the  program,  and  its  cost  simulated. 
Let  it  be  clear  that  this  example  is  grossly  over 
simplified,  but  it  will  serve  to  exercise  all  the  routines 
of  the  program.  The  statistical  description  procedures  are 
not  walked  through;  only  data  organization,  entry,  and 
simulation  is  covered  here. 

THE  SYSTEM  -  John  is  starting  a  flying  club.  He  needs 
to  estimate  the  cost  of  purchasing  and  operating  a  fleet  of 
6  small  aircraft  with  a  life  expectancy  of  ten  years.  From 
data  about  past  purchases  and  operation  of  similar  aircraft 
John  has  developed  a  set  of  equations  representing  the  costs 
associated  with  this  fleet  of  aircraft. 

John  will  have  two  years  of  setup  and  aircraft 
acquisition,  after  which  the  fleet  of  aircraft  will  be  put 
into  service  for  ten  years.  So  the  entire  process  will 
stretch  out  for  twelve  years.  The  current  interest  rate  is 
9.5%,  and  is  expected  to  hold  steady  for  at  least  twelve 
years.  Following  are  the  equations  and  their  explanations. 

The  first  cost  incurred  is  a  setup  fee,  money  needed  up 
front  for  maintenance  equipment  and  facility  renovation. 

John  knows  how  much  this  will  cost  as  he  has  contracted  this 
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out,  having  already  negotiated  a  package  price  of  $32 , 000. 
This  cost  is  incurred  in  the  first  year: 


C  SETUP  =  X  1 

where 

X  :=  32,000 


Next  John  roust  purchase  the  aircraft.  The  cost  of  the 
aircraft  fleet  has  been  estimated  by  the  following  equation 
(CER) : 


AIRCRAE 


=  *1 


PI 


X  2  P2 


where 

X  personnel  capacity  of  aircraft 

X  7-  thickness  of  aluminum  skin 

(3  estimated  at  5.2 

P  2=  estimated  at  0.5 

cov(£)=  estimated  at  1=  1.7,  2=  0.05,  1,2=  0.02 
MSE  =  1.2 


John  has  decided  that  X  x  will  be  4  people.  The 
aircraft  manufacturer  has  notified  John  that  the  thickness 
of  the  aluminum  sheeting  (X2)  is  usually  uniformly 
distributed  between  0.25"  and  0,37".  Since  the  aircraft 
must  be  purchased  after  the  first  year  of  setup,  this  cost 
will  be  incurred  in  year  2. 

The  next  cost  is  the  maintenance  of  the  aircraft.  It 
has  been  shown  that  the  maintenance  and  operation  cost  for 
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six  aircraft  of  this  type  can  be  forecasted  by  the  following 
equation: 

C  mo  '  e  i  X,  ♦  X,*! 

where 

X  j*  flying  hours  per  plane  per  year 

X  2=  average  humidity  over  aircraft  life 

P  !=  estimated  at  1,380 

/?  2=  estimated  at  22,000 

cov(£)=  estimated  at  1=  205,  2=  1307,  1,2=  125.9 
a?  =  0.5 

MSE  =  15,700 

Having  researched  flying  clubs  in  other  areas  of 
similar  size  and  demographic  composition,  John  has  estimated 
the  flying  hours  per  aircraft  per  year  to  be  beta 
distributed  between  1,000  and  1,500  hours,  with  a  =  0.5  and 
P  =  1.5  (beta  type  3,  see  figure  11).  The  local  weather 
archives  reveal  that  the  area's  average  relative  humidity 
over  a  ten  year  span  is  beta  distributed  between  0.5  and 
0.8,  with  parameters  a  =  4.5  and  p  =  1.5  (beta  type  7,  see 
figure  11).  Since  the  aircraft  will  not  fly  for  the  first 
two  years,  the  maintenance  and  operation  costs  will  be 
incurred  from  year  three  through  year  twelve. 

The  last  cost  John  has  to  worry  about  is  a  set  of 
replacement  engines.  The  FAA  has  made  a  ruling  that  small 
aircraft  engines  and  their  propeller  speed  reduction  gears 
must  be  replaced  after  each  five  years  of  duty.  John  has 
negotiated  with  the  local  aircraft  parts  retailer  and  has 
settled  on  a  price  scale  for  the  replacement  engines.  The 
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scale  depends  on  the  number  of  engines  purchase.  The  more 
you  buy,  the  cheaper  they  are: 


C 


1  tNGlNE 


where 


X!  Pl 


*  X  2  p2 


X  1 

x  ; 

fi  i 
P  2 

cov(^) 

MSE 


=  average  cost  per  unit 
=  number  of  engines  purchased  (lot  size) 
=  number  reduction  gears  per  engine 
=  estimated  at  0.95 
=  estimated  at  0.3 

=  estimated  at  1=  0,  2=  0.05,  1,2=  0 

=  1,200 


This  is  a  learning  curve  CER.  John  will  be  buying  6 
engines  (Xj)  each  having  4  reduction  gears  (X  2  ) .  Since 
the  original  engines  will  be  replaced  five  years  after  start 
of  service,  these  new  engines  must  be  bought  in  year  7. 

Note  that  C  is  the  average  cost  per  unit.  The  cost  of  this 
cost  component  will  be  figured  by  mulitplying  that  average 
cost  per  unit  by  the  number  of  units  to  be  purchaes,  X:. 

SETTING  UP  SPENDING  TIMELINES 

Now  that  all  the  costs  are  broken  out,  the  value  of 
NOCOST,  PI,  CON,  and  PO  must  be  determined  for  each  cost. 

COST  1:  SETUP  -  Figure  16  shows  the  spending  timeline 
for  this  cost.  The  setup  will  occur  in  year  1,  so  the  bill 
will  be  paid  at  the  end  of  that  year.  Since  this  bill  will 
be  paid  in  its  entirety  the  first  year,  there  are  no  periods 
of  NOCOST,  PI  or  PO.  There  will  simply  be  constant  spending 
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CON 

PI=PO=NOCOST  =  0 

CON  =  1 

— 

0  1 

IlllIlflTtt 

2  3  4  5  6  7  6  9  10  11  12 

Figure  16  spending  timeline  for  Cost  1. 


in  year  1.  So  the  value  of  CON  is  1. 

COST  2:  AIRCRAFT  PURCHASE  -  Figure  17  shows  the 
spending  timeline  for  this  cost.  The  purchase  will  occur  in 
year  2,  so  the  bill  will  be  paid  at  the  end  of  that  year. 


This  is  just  like  the  case  of  setup  above,  except  the  lump 
sum  is  paid  in  year  two.  Since  no  money  is  due  in  year  1, 
the  NOCOST  period  is  1  year.  The  entire  cost  will  be  paid 
in  the  single  year  following  the  NOCOST  period  (year  two)  so 
the  CON  period  is  1  year  long. 

COST  3:  MAINTENANCE  AND  OPERATION  -  Figure  18  shows 
the  spending  timeline  for  this  cost.  The  aircraft  will 
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begin  to  fly  in  year  three.  Since  no  money  will  be  spent 


N0C0ST  = 

2  PI  =  PC  =  0 

CON  =  10 

- 1 - 

CON 

- 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 

i - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 

0  i  2  3  4  5  6  7  8  9  10  11  12 


Figure  18  Spending  timeline  for  Cost  3. 


for  M&O  in  years  1  and  2,  the  NOCOST  period  is  2  years.  The 
maintenance  costs  will  be  incurred  evenly  over  the  operating 
life  of  the  aircraft,  years  3  through  12,  or  for  10  years. 

So  the  CON  period  is  10  years.  Again  there  are  no  PI  and  PO 
periods . 

COST  4:  ADDITIONAL  ENGINE  PURCHASE  -  Figure  19  shows 
the  spending  timeline  for  this  cost.  The  purchase  of  all 
the  additional  engines  will  occur  in  the  fifth  year  of 


N0C0ST  =  6 

CON  =  1 
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Figure  19  Spending  timeline  for  Cost  4. 


aircraft  operation,  year  7.  So  the  bill  will  be  paid  at  the 
end  of  that  year.  Since  no  money  is  due  in  years  1  through 
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6,  the  NOCOST  period  is  6  years.  The  entire  cost  will  be 
paid  in  the  single  year  following  the  NOCOST  period  (year 
two)  so  once  again  the  CON  period  is  1  year  long. 

Table  1  lists  the  values  of  NOCOST,  PI,  CON,  and  PO  for 
each  of  the  costs  described  above: 

Table  1 


cost _ ; _ NOCOST 

setup  o 

AIRCRAFT  PURCHASE  1 

MAINTENANCE  &  OPS  2 

REPLACEMENT  ENGINES  6 


PI 

0 

0 

0 

0 


CON 

1 

1 

10 

1 


EQ 

o 

o 

o 

o 


DATA  ENTRY 

To  enter  the  data  describing  the  system  cost 
components,  start  the  program  by  typing  its  name,  THESIS. 
Select  DATA  from  the  opening  menu  by  pressing  D,  or  by  using 
the  down  arrow  key  to  highlight  the  DATA  option,  and 
pressing  CR.  Now  select  the  DEFINE  SYS  option  from  the  DATA 
menu  by  pressing  D.  Now  you  are  ready  to  begin  entering 
costs. 

Begin  by  entering  the  onl}  single  variable  cost 
component,  setup  costs.  Remember  that  this  cost  was  a 
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constant.  Select  VARs  by  pressing  V.  When  prompted  for  a 
file  name,  enter  JOHNFLY.  Next  you  are  prompted  for  the 
number  of  variables.  Respond  to  the  prompt  by  entering  the 
number  1,  because  there  is  only  1  single  variable  cost 
component  (the  others  are  CER's). 

A  new  screen  appears  and  you  are  prompted  for  the  type 
of  the  variable.  Since  our  variable  is  a  constant,  enter  a 
0  (see  Figure  11).  When  prompted  for  the  constant  value, 
enter  32000  (no  commas).  Next  you  are  prompted  for  NOCOST, 
PI,  CON,  and  PO  in  that  order.  Enter  the  values  0,  0,  1, 
and  0  in  that  order,  pressing  CR  after  each  (see  Table  1). 
Since  there  are  no  more  single  variable  cost  components,  the 
program  returns  to  the  DEFINE  SYS  menu. 

To  save  the  information  you  have  entered  so  far,  press 
the  S  key  to  select  SAVE.  You  are  again  prompted  for  a  file 
name,  but  this  time  the  name  JOHNFLY  is  offered  in 
parentheses  as  the  default.  Since  JOHNFLY  is  the  name  you 
want,  simply  press  the  CR  to  accept  it. 

Next  you  need  to  enter  the  CER's.  Select  CER  from  the 
menu  by  pressing  C.  Again  you  are  prompted  for  a  file  name, 
press  CR  to  accept  the  default.  When  prompted  for  the 
number  of  CER's,  enter  the  total,  3.  Next  enter  the  number 
of  the  CER  you  want  to  describe.  Start  with  1,  which  will 
be  the  MAINTENANCE  AND  OPERATIONS  CER. 

In  response  to  the  next  prompt,  enter  the  number  of 
explanatory  variables  (number  of  /?  parameters),  2.  Next  is 
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the  sequence  of  time  parameter  prompts  for  this  CER.  Enter 
the  NOCOST,  PI,  CON,  and  PO  values  as  they  are  asked  for, 
just  like  in  the  single  variable  case.  Next  the  screen 
clears  and  you  are  prompted  for  the  type  of  the  CER;  regular 
(linear),  natural  logarithm,  or  learning  curve.  Select 
regular  by  pressing  R. 

The  next  group  of  prompts  pertains  to  the  explanatory 
variables  of  the  CER.  For  each  variable  you  are  prompted 
for  the  type,  high,  and  low  (or  mean  and  variance  for 
normals)  just  like  with  the  single  variables  discussed 
above.  Since  Xj  is  distributed  beta  (a=0.5,/?=1.5)  enter  3 
for  the  type  (see  Figure  11).  Next  enter  1000  and  1500  as 
the  low  and  high  values.  Since  no  power  transformation  is 
desired,  enter  1.0  at  the  a  prompt.  For  the  next 
explanatory  variable,  follow  the  same  sequence,  except  enter 
0.5  for  a  value  since  that  power  transformation  is  indicated 
by  the  CER  describing  the  maintenance  costs. 

After  you  have  described  the  explanatory  variables,  you 
will  be  prompted  for  the  estimates  of  the  (3  parameters. 

Enter  1380  for  the  first  (3  and  22000  for  the  second.  Next 
you  are  prompted  for  the  covariances.  Be  careful  to  note 
which  covariance  you  are  being  prompted  for.  First  the 
cov[l,l]  appears.  Enter  205  since  it  is  the  variance  of 
/?!•  Next  the  cov[l,2]  prompt  appears.  Enter  125.7. 

Finally  the  cov[2,2J  prompt  appears,  so  enter  1307,  the 
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variance  of  (3  2.  The  last  prompt  is  for  the  MSE.  Enter 
15700. 

To  enter  the  next  two  CER's  follow  the  same  steps. 

When  entering  the  aircraft  cost  CER  be  sure  to  select 
natural  logarithm  as  the  CER  type.  Describe  the  X  variables 
as  the  beta  distributed  variables  they  are.  The  program 
will  handle  the  logarithms  and  exponentiation.  Be  sure  to 
enter  1.0  for  the  transformation  a's. 

For  the  replacement  engines  CER,  select  learning  curve 
as  the  CER  type.  Be  sure  Xlf  the  first  explanatory 
variable,  is  the  number  of  units  to  purchase.  The  CER 
outcome,  Cx  EN3Ifj£  must  be  multiplied  by  X1  to  get  the  total 
cost  of  the  entire  lot  of  engines,  since  the  CER  describes 
the  average  cost  per  unit  (engine). 

The  last  step  in  data  entry  is  to  enter  the  current 
interest  rate.  Select  RATE  from  the  DEFINE  SYS  menu.  Enter 
the  APR,  9.5.  Now  save  the  system  file  one  last  time  by 
pressing  S  and  and  backup  to  the  main  menu  using  the  B  key. 

RUNNING  THE  MONTE  CARLO  SIMULATION 

To  run  the  simulation,  proceed  to  the  RANDOM  DEVIATES 
menu  by  selecting  R  and  the  main  menu.  Now  select  S  to 
simulate  costs.  When  prompted  for  the  file  name  containing 
the  system  information  (CER's,  rate,  etc.)  enter  JOHNFLY. 
Next  you  are  prompted  for  the  number  of  runs  to  perform,  or 
the  number  of  estimates  to  make.  Enter  any  integer  between 
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1  and  2500.  You  must  also  enter  the  name  of  the  data  set  In 


which  to  store  the  cost  estimates.  You  may  choose  any  name, 
but  it  is  best  to  keep  the  same  name  as  the  .STM  file 
containing  the  CER  information.  Enter  JOHNFLY.  This  will 
not  erase  the  system  information  file. 

SEEDS 

The  seed  is  set  to  a  default  of  12345  when  the  program 
is  initiated.  If  you  run  an  LCC  simulation  today  with  the 
default  seed,  and  simulate  the  same  system  next  week  with 
the  defalut  seed,  the  output  numbers  will  be  exactly  the 
same.  You  may  change  the  seed  upon  initiating  the  program 
to  give  different  random  deviates.  Changing  the  seed  is  not 
a  dangerous  procedure.  The  seed  may  be  set  to  any  integer 
between  1  and  32000. 

OUTPUT  ANALYSIS 

You  are  now  ready  to  use  the  statistical  description 
routines  provided  by  the  program.  For  information 
concerning  the  significance  of  each  routine  see  Chapter  III. 
For  specific  program  operation  information  see  the  functions 
section  of  this  appendix. 
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APPENDIX  B:  RANDOM  DEVIATE  GENERATOR  OUTPUT 


OVERVIEW 

The  purpose  of  this  appendix  is  to  demonstrate  the 
capabilities  of  the  deviate  generators  used  in  the  model 
building  program.  Checks  of  mean,  variance,  and  serial 
autocorrelation  are  performed  on  each  generator.  There  are 
more  powerful  tests  for  specific  distributions  available  but 
they  have  not  been  performed.  The  purpose  of  this  appendix 
is  not  to  prove  the  theoretical  accuracy  of  the  random 
deviate  sampling  procedures,  but  to  demonstrate  that  they 
have  been  coded  according  to  the  references  provided,  and 
that  they  have  no  major  flaws.  For  more  rigorous  validation 
of  the  sampling  procedures  see  the  appropriate  references. 

The  following  sample  statistics  are  provided  via 
STATISTIX  II.  Additional  statistics  and  graphs  are  provided 
from  the  model  builder  statistical  functions,  helping  to 
validate  by  comparison  those  statistical  functions  that  have 
been  repeated ) . 
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UNIFORM ( 0/ 1 ) 

Source:  Press. 

Type: 

500  element  test  set:  Observed  Expected 

mean  0.5037  0.5000 

var  0.0808  0.0833 

low  0.0004  0.0000 

high  0.9970  1.0000 


Figures  20  and  21  are  graphical  depictions  of  the 
output  deviates,  created  by  the  model  builder  program. 

Figure  18  shows  the  first  22  serial  autocorrelations  for  the 
500  element  test  set,  as  calculated  by  STATISTIX  II. 
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Figure  21  Uniform  moments 


AUTOCORRELATION  PLOT  FOR  UNIFORM 
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Source:  Ross. 


Type: 

500  element  test  set:  Observed  Expected 

mean  0.0052  0.0000 

var  0.9820  1.0000 

Figures  23  and  24  are  graphical  depictions  of  the 
output  deviates,  created  by  the  model  builder  program. 

Figure  25  shows  the  first  25  serial  autocorrelations  for  the 
500  element  test  set,  as  calculated  by  STATISTIX  II. 


Figure  23  Normal  histogram. 
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Figure  24  Normal  moments. 
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Figure  25 
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BETA(cr=1.5,fl=4.5^  ON  (  0 .  H  INTERVAL 


Source:  Ross,  Fishman. 

Type:  Acceptance-Rejection. 
500  element  test  set:  Observed 
mean  0.2447 

var  0.0258 

low  0.0048 

high  0.7109 


Expected 

0.25C0 

0.0268 

0.0000 

1.0000 


Figures  26  and  27  are  graphical  depictions  of  the 
output  deviates,  created  by  the  model  builder  program. 

Figure  28  shows  the  first  25  serial  autocorrelations  for  the 
500  element  test  set,  as  calculated  by  STATISTIX  II.  Note 
that  the  20th  autocorrelation  appears  significant. 
Remembering  the  way  risk  builds  when  more  than  one 
confidence  interval  is  considered  simultaneously  we  could 
calculate  that  the  probability  of  at  least  one 
autocorrelation  being  out  of  its  90%  Cl  when  no  actual 
autocorrelations  exist  is  over  0.95J 
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250 


18? 


F 

R 

E 

Q 

U 

E 

N 

C 

Y 


0.08826  0.25574  0.42522  0.59471  0.7» 

0.17100  0.34048  0.50996  0.67945 


_ _ _ CLASS  BOUNDARIES 

Figure  26  Beta  histogram. 
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LD 


n 

HI 


File  = 

betas 

Mean  = 

0.24291 

Sanples  - 

500 

Median  = 

0.21280 

it 

0 

0.00152 

Uariance  = 

0. 02642 

Hi  = 

0.76419 

S .  Dev  = 

0.16254 

Jackknife 

stat 1st ics: 

Z  Mean  = 

0.02642 

Z  S.  Dev  = 

0.D3701 

J)  Jackknife  Statistics  H)  Back  to  Menu 


Figure  27  Beta  moments. 
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AUTOCORRELATION  PLOT  FOR  BETA 


LAS 

CORR. 

— 

.  + - +  _ 

1 

0.053 

2 

-0.022 

3 

-0.018 

4 

-0.028 

5 

0.050 

6 

0.028 

7 

0.052 

8 

-0.088 

9 

-0.064 

10 

0.081 

11 

-0.018 

12 

-0.012 

13 

0.063 

14 

0.001 

15 

0.039 

16 

0.007 

17 

0.026 

18 

0.023 

19 

0.018 

20 

0.102 

21 

-0.025 

22 

-0.036 

23 

-0.067 

24 

-0.004 

25 

0.056 

0.2  0.0  0.2  0.4 


>  **< 
>**  < 

>  *  < 
>**  < 

>  **< 

>  **< 

>  **< 
>**  < 
>* *  < 

>  **< 

>  *  < 

>  *  < 

>  **< 

>  *  < 

>  * *< 

>  *  < 

>  **< 

>  **< 

>  *  < 

>  *  *  >* 
>*★  < 
>**  < 
>**  < 

>  *  < 

>  **< 


0.6 


MEAN  OF  THE  SERIES  2.447E-01 
STD.  DEV.  OF  SERIES  1.605E-01 
NUMBER  OF  CASES  500 


Figure  28 
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MULTIVARIATE  NORMAL 
Source:  IMSL  User  Guide 


Type: 

500  element  test  set:  Observed 


mean 

xl 

4.985 

x2 

10.09 

x3 

15.03 

Expected 

5.000 

10.00 

15.00 


Covariances  Observed 


Expected 


2.957  0.578  1.994 

0.578  8.338  2.413 

1.994  2.413  4.912 


3.0  1.0  2.0 
1.0  9.0  3.0 
2.0  3.0  5.0 
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APPENDIX  C:  TURBO  PASCAL  4.0  SOURCE  CODE 


{IS-)  (Stack  checking  on} 

(numeric  coprocessor  yes} 
($“  64CCC, 0,655363} 


PRCGRA"  thes.s; 

Uses 

Crt , 

Cos, 

PRI'.TER, 

Graph, 

fiavener„,  (*  origir.a’  merging  unit  written  by  me  *) 

flavesTat;  (*  original  uni;  written  by  me, houses  many  statistical  routines  *) 

*  r  **-*»-**.* »•(,•■»)»»> **»»**«*»***»** -♦»»-«»**»*-« »*»*>»>»  ) 

*) 

Note:  the  type  and  variable  declarations,  along  with  many  of-  the  *) 

statistical  and  file  handling  routines  used  in  this  program  r) 

are  in  the  unit  CAVES TAT.  Some  other  routines  along  with  all  ») 

the  homemade  scrolling  men*  control  routines  are  in  the  DAVEMENJ  *) 
unit.  Ssince  those  units  have  been  included  with  the  USES  *) 

statement,  the  program  acts  as  if  they  we*e  listed  here.  ») 

f) 

•*wvr**w*r*rvrw**rv*"«**vr«**rr****rv**rr*r«***rvw«***w*w**»wrx«*w*ww***w*) 


( 

( 

( 

( 

( 

( 

( 


procedure  mu' ti normal (var  betas: doubvect; chol : tensq) ; 

;•  fh • 5  is  an  orig;nal  procedure  written  for  multinormal  sampling  using  then) 
(*  cno'esvy  sduare  root  of  the  covariance  matrix.  See  I«Sl  for  algorithm.  *) 
( r  >is  rout;ne  is  used  for  generating  dependent  betas  for  cers  evaluation.*) 
var 


r,  x 

temp?, temp 
beg;n 

n:-trunc;betas[C]'; 
mat2.matr- x: «c-o! ; 
mat2.ro«size:=n; 
mat?. col  size: «n; 
mat! .col  si ze: =n; 


: integer; 

:dOuble; 

(*  This  is  the  njnber  of  betas  in  this  CEP  *) 

( *  PUt  the  cnolesky  square  root  of  the  cov  matrix  in  MAT? 
(*  These  next  4  lines  setup  the  sizes  of  working  matrices 


matl.rowsize:*!; 

(*  era-  the  independent  normals  and  put  them  in  a  vector  *) 
for  x;i  1  to  r,  do  begin 
temp  :*  ran3;seed); 

temp2  :  =  ran3(seed); 

mat'. ,matrix[:,x]  :  =  sqrt ( • 2*ln(temp) )»sin(2*pi*temp2) ; 


*) 

') 


end; 

(*  Postniul  iply  independent  normals  by  cholesky  square  root  of  the  covariance  matrix 
MUlTmat; 

(*  No-  add  m  the  means  to  complete  the  dependent  multinomial  samples*) 
for  x:=l  to  n  do 

betas[x]  :*  mat3.matrix(l,x]  ♦  betasfx]; 
end; 


*) 


PROCEDURE  MANUAL  (SETS:  JnEO;  VAR  NUMARRay:\.'ECT;NUMG:  INTEGERjVAR  BOUNDARIES: twenvect); 
(*  this  allows  the  use*  to  enter  his  own  class  boundaries  for  the  *) 

(*  frequency  histogram  routine.  ♦) 

VAR  x,v  -.INTEGER; 

MIn.wIOTh  :  double; 
go  :boolean; 
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('  original  *) 

St  GIN 

FOR  X:*  1  TO  NUHG  30 
BEGIN 

WRITE('Upper  bounda-y  Tor  class  ,X, ' ) ; doubl eread(80UNDARIES[X] ) ; 

writelnC  (inclusive;'); 

writeln; 

END; 

Tor  x:*l  to  20  do  (*  initialize  tne  observed  Trequency  vector  *) 
nurna r  r  ay  a  ] :  = v, ; 
numarrayic] : =1; 

Tor  x:*l  to  numg  dc  begm  ;»  no.  count  the  observed  Trequencies,  on  class  at  a  time  *) 
go:-tr*e;  (*  The  data  will  be  sorted  beTore  it  *) 

Tor  y:-  numarray [0]  to  setg.size  do  (*  is  sent  to  this  routine,  so  using  *) 

IT  (setg.aata[y]<*bOur>daries[*j)  and  go  then  («  the  go  Tlag  allows  me  to  make  only  *) 

n jr.amay [x] :  =r, jnar-ay [a] *1  (*  1  complete  pass  through  the  data  to*) 

else  go:*Talse;  (*  count  class  frequencies.  ») 

nunarray  [0] :  »ncrarray[Oj*nimarray[x]; 
end; 


(*  original  *) 

PROCEDURE  autodass'SETG:  INF0;vaR  numaRRav:VECT;nuhG:  INTEG£R;VAR  BOUNDARIES: twenvect); 
(*  this  automatica'ly  sets  the  ca’ss  boundaries  Tor  the  histogram  *) 

(»  it  divides  tne  data  range  into  equal  calss  widths  *) 

(*  The  data  is  sorted  before  it  comes  to  this  routine,  like  the  routine  above.  *) 

VAR  X, v  -.INTEGER; 

KIN, width  :  double; 
cirmf'eq  ctwenvect; 

StuTT  : f i 1 ename; 

gc  .-boolean; 

BEGIN 

HI N  :  =  Sc  ■  v,.  CATAl  )  1  ; 

width  :=  (SETG.CAIA[SETG.SIZE]  -  nIn)/nuhG; 

for  x  :=  ;  to  (nuhg;  do 

BOUNOARIES[X]:--  hIn<wIDTh*x; 

Tor  x: *1  to  20  do 
numarray(x] ; *0; 
numarray[0] : *1; 

Tor  x:»l  to  numg  do  begin  (*  counting  class  frequencies  just  like  procedure  above  *) 
go: -true; 

for  y : *  njmamay [0]  to  setg.size  do 

if  (setg.data[y]<*boundaries[x])  and  go  then 
nunarray  [x] : -numarray [x]*l 
else  go:*fa!se; 

numarray [0] : =numarray[Cj*numarray(x}; 
end; 

END; 


('  deGue  ♦) 

PROCEDURE  annxaXIS(X0RI, Y0RI , XlEN, nu"X: INTEGER; XTEXTARR:ANNARRAYTVPE) ; 
(*  annotates  the  x  axis  Tor  graphs  ') 

VAR  yl.TEXTLENGTH, real vg,J,NUHT000: INTEGER; 

SPACING  : double; 

BEGIN 

SPACING:-  XLEN/NUHX; 

NUHTQD0  :•  NUHX  *1; 

FOR  j:*  1  TO  NUHT00C  00 
BEGIN 

TEXTLENGTH  :-  LENGTH (XTE XT ARR[J] ) ; 

REalXG  :-  rOund(X0RI • (J- 1)*(SPA0ING) - (8* text  length /2)); 
yl: *2B0; 
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if  odd C j )  then  yl  :*  290; 
outtextxy (realxg,yl,xtextarr[jj); 
END; 

XTEXTARRfOJt-'CLASS  BOUNDARIES'; 
ojttextxy(280,32C,xtextarr[c]); 

ENi,; 


(*  deOue  *) 

PROCEDURE  ANNVAXISUCRI. VORi.VLEN.NUHV; 1n'EGER;VTEXTARR:ANNARRAVTYPE); 
(*  annotates  the  y  axis  for  graphs  ») 

VAR  TEXT.ENG’h, X’EXT, vTEX*, J, nuhTCCC: INTEGER; 

SPAC  AG,  RlA.Xo,RcA,.vg  tdouBle; 

BEGIN 

SPACING: =  VlEn/N-hY; 

NUh’OOO  ;■=  Nw‘«v  . 

ECR  0:--  1  TO  NUf'GQC  DO 

beg:.-. 

TEX'.ENG’m  ;*  LEnGTH(VTEXTaRRIDT); 

REA^XG  ;=  XOS!  -  (TEXTlEnG’H  *  8.0)  -15; 

REAtVG  :  =  V0R;-SPaC;nG’(J-1)-4; 

Outtextxy (round (real xg) , round (realyg) , y textarr[j ] ) ; 

ENO; 

YTEXTaRRIQ] :  *  1  FREQUENCY  1 . 

T"VT.ENGTH  :=  LENGTh(YT£XTaRR[0]); 

FCx  j ; =  1  TO  TEX i LENGTH  CO 

Outtextxy (30, 120rj»10,ytextarr[0] (j] ); 

ENQ; 


( r  deQ-e  »; 

PRCCECuRE  AX.’STEX'JVAR  GTE  X  i  APR : ANNARRA v  T  VP£  ;  NUNG :  lNT££ER;L0WVAL,HJVAL:dOufile; 

REAlF0RhaT;9CC.Ean); 

( *  -rites  the  te^t  at  the  x  axis  ') 

VAR  I N i c RVAl , fit AuVA. ; dOubl e ; 

lNTVAi.,0  ;  INTEGER; 

BEGIN 

gtextarr;i]:=  •; 

Interval.  :  =  (hIva^  -  LOWal)/nuhG; 
if  REAlFOR«At  then 
FOR  J;-  1  TO  NUMG  CC 
BEGIN 

REAaVAL  ; =  LOWVAL  +  j  *  interval; 

STR(REalval;12:5,GTExtaRR[J.1]) 

EnO 

ELSE 

FOR  J:  =  1  TQ  nuhG  00 
BEGIN 

INTVAl  :*  TRUNC(0.5*(L0WVAL  «TRunC( INTERVAL) *0) ) ; 

SIR ( I ntval : 3, GTEXTaRR [ J •  1  ] ) ; 

ENO; 


(♦  deQue  *) 

PROCEDURE  NANXAXIS(VAR  GTEXTARR; annaRRaytype ; nuhG: INTEGER; BOUNDARIES: twenvect; 
(»  writes  the  x  axis  text  when  manual  class  Boundaries  are  used  ') 

REALFORhAT: BOOLEAN) ; 

VAR  INTERVAL, R£ALVAL:dOu£le; 

INTVAL.J  : INTEGER; 

BEGIN 

gtextarril];-’ 

IF  REALFORhAT  then 
FOR  J:«  1  TO  NUNG  00 
BEGIN 
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STR ( BOUNDAR ! E $ ; J : : 1 2 : 5 , GTE XT ARR :  J • 1 ] ) 

ENC 

ELSE 

FO°  J:*  1  TO  NUflG  CC 
BEGIN 

intval  trunc;bolngar:es[J3); 

STR ( I NTVAL : 3 . GTEXTARR [ J . 1 ] J ; 

ENO; 

ENG; 


(*  a*:.;  ») 

prgceggre  dcxax:s;xor:,ycr:,xlen,nlhx;  integer;,- 

I*  tr-,s  actua'ly  dra*s  tie  lines  for  the  x  axis  itself  *) 

VAR  x,C,x  : IntEGER; 

TEnp  :  dOoS’e; 

BEGIN 

l:ne;x3r:,vor:,xcr;.xlen,vcrij; 

FOR  j:«  :  TC  N'jnx  GC 
BEGIN 

TEN"  ;=  XlEN/NGNX'G; 

X  :*  XORI  *  TRl-nCCE"0); 

LInE  ;x, VCR  I , X, vCR’ *7) ; 

ENC 

ENC; 


(*  deC-e  ♦; 

PRCCECwR"  CGvax:s;xCRI,vORI,vlEn.ncnv,xlEn: INTEGER); 
(*  ji.st  I'xe  ao^axis  except  fcr  the  y  ax-s  *) 

VAx  v , J , x  ; i N 

TEnp  ;  CC-P'e; 

BEGIN 

LINE 'xcri, v:r;,xcs;,v:ri- v.EN); 

FCR  j:»  I  TC  NLNV  CC 
BEGIN 

TE«P  : ouia( vlEN/No'V ; 'J; 

V  :=  YCRI  -  RCCNCCTEiP); 

L  I NE : XCR I  - : C , v , XCR I *X_  EN, v ; ; 

ENC 

ENC; 


procedure  graph- x; 

(»  sets  ap  the  compute-  for  the  EGA  640x480  color  mode  ’) 

var  . 

GraphCri ver , Graphm.oae, Errorcoae  :integer;  {  The  Graphics  device  driver  } 

beg;  n 

;*  initialize  the  ega  a  color  graphics  screen  soot-,  x  3sov  *; 

graphari ver: *4; 
graphmode:*l; 

Ini tGraph(graphpr i ver , graptmoae, ' ' ) ;  I  activate  graphics  } 

EmorCode  ;*  GraphReSu’ t;  {  error?  } 

if  ErrorCoOe  <>  grOL  then  begin 
Wr- teln(  Graph- cs  e-'or;  GraphFrrorHsglErrorCode)); 

Halt(i); 

end; 

ene; 


( r  highly  modified  deQue  *) 

PROCEDURE  HISTOGRAM; 

(*  drars  a  freguency  histogram  based  on  a  data  set  ’) 
VAR  NUNARRAY  ; VECT; 

BOuncaR IES  :twenvect; 
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GtEXTARR 

XORI,  vORI.Xl.En,  v>-Zn,  x,  v 
nu^x.nuhv.ulx.ul'.-Rx^rv,:, 
lOX.HlX.tOV.HlV.SOA.EX,  s:a_e 

REPIV,R£PLV?,AUTC,RRV',t 
REAlEORhAtX,  REALFORha’v 
setg 
D 

s  E  o : 

M'kjsl ; 

ne-;setgl ; 

set«‘ rao- (36, 1C, 7 S , IS;  ; 

REA::‘,;set;*:; 

If  (rot  ExiS'lsetg'.rame;;  o- 
re  ease;pj; 


:ANnaRRav~ypE; 
:  ;n,tE3ER; 
naXClASS  : IN’EGER; 
‘,3aR.:3th  :ao-b'e; 

:  BCC.EAr.; 

:  in'optr; 

tpointer; 


!setg" . SIZt<=?;  then  beg"- 


e«'  t; 
era; 

HAXC.ASS: =0; 

«r- te’-; 
repeat 

--'te;  ho.  ma-y  c' asses?  (5  203:  ');intread;njr,x;;-rite’r; 
M  r  t  i*" .x  a  A }  a'd  ^  r  jr x  <  2  *  , ; 


» " ‘ 16  r i 

wR;’f;  0c  yc-  -a-t  a  pr;nto-t?  :  ‘);PRVNt:  i£ACKEv;.riteln(  •  '.pryntj; 
■ te ' r ; 

;p  wx<»:  njpx:*:; 

.r-  te;  A_to-at ■  c  class'ng?  :  ' ) ; AJf 0:  =REaokEv; writeir ; '  '.auto); 


Nw**v :  ‘ 

FOR  X: =  C  *0  Njex  0C  NUHARRAv'xj:=C; 

wp;*e;  -  -  P’ease  ua- 1  -  ■  ' ); 

SCR'-RCsetg' J ; 

if  *pcose;a-'o; =  v  Then  a-tcc’asslsetg*, nuharra- , Nunx, BCunOariES) 

E^SE  beg  - 

«a-,„a.  ;setg*,i*jHARRAv,KjHA,  3CjsCaR:es;; 
wr: "e (  ■ •  p1 ease  watt--  ' 

e-d; 

c--  V*.  \  7 Z  NJMX  CC 

If  NpHARRAV  [X]  V  HAX.O.ASS  thEN  nAXC.ASS  :*  NL,HARRAv;xl; 
xcv.  :=  IOC;  (*  le't  edge  o'  grab-  *) 

vcr;  :=  259;  (’  top  ecge  o'  g-apr  ') 

X„E‘.  :*  iS Z;  ('  Iergt-  o'  *  axis  *3 

vtE-<  ;=  210;  ('  length  o'  y  axis  *5 

REA^:3Rha'x; «  TRuE ;  (*  says  to  sho*  x  i,  s  labe’  nunoers  as  rea  s  *) 

REAtfCRnA'v ; »  falSE;  (*  says  to  sho-  y  axis  label  nvnDe's  as  integers  *3 
grapr-x;  (*  initialize  tne  graphics  ca-d  mode  •) 

SETC3.:r;RE::;  ('  tnese  tn'ee  lines  dra.  tne  x  and  y  axes  m  red  *) 

EEXAX I S ( XGR I , VCR : , XL EN , Mix J ;  (»  dra-  x  axis  ') 

C0vAX:s;x0R;, vCR;,VLEN,Nonv,xtEN); (*  dra-  y  axis  ') 

LCx:  --setg'.CATA;;];  f  these  t»o  lines  get  n;  and  lo-  values,  data  s  sorted  ♦) 

niX:=setg'.0AFA[setg*.SIZE3; 

se*:c^:r(wh:te;; 

(♦  this  next  block  figures  class  bcundar-es,  observed  freo.en cies,  anp  -rites  the  axis 
IE  jPCa5E;al'C3=  V  THEN  AX  I  St  Ext  (GTEXTARR,  NUMX,  LCX,  hIX,  REAi.EORnATX) 

Else  HANXAX!S(GTEXtARR,NP»X,9CLN3ARIES,REAkFCRHA’X); 

annxaxI  S(X0RI ,  VORI ,  Xt  E n,  Npnx,  GflXt ARR) ; 

AXISTEXT (GTEXTARR, NPnv, 0, setg" . SIZE ,  REAL  foRha'v) ; 

ARNVAXIS(X0RI,  VORI ,  vlEie,  GtEXtARRJ  ; 

SCAlEv  :•  2.0«VLEN/setg-.SIZE; 

BARWIDTH  :•  XIEN/Npnx; 

(»  no-  draw  the  bars  tor  the  histogram  based  on  observed  frequencies  per  class  *) 

FOR  j:-  1  TO  NUMX  00  BEGIN 

(»  this  code  calculates  the  proper  hiegnt  for  each  *) 

(»  oar  of  the  histogram  and  dra-s  each  bar  m  3-dimensionai  form,  ») 

ULX  ;■  XOR I  .  TRUNC (8ARWI Ot H  *  (J-l)); 


text*; 
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ULY  :•  TRUNC;Y0R:  •  NUHARRAV[J]  *  SCA..EY); 

LRX  XORI  ♦  TRUN,. (BaRv) DTh*d ) ; 
bar3D(ULX*l,ULY,LRX  1,V0RI,6,TR„E); 

(•BAR  (ULX*1,ULV,_RX-1,V0R;;;  tc  HAVE  2-0  RA'her  Than  3-0  *) 
END; 

IF  UPCAS£(PRVNT)«'V  THEN  PRTSC; 

PAUSE:*READKFv; 

RESTORECR'MOGE; 

release;?); 


PROCEOoRE  ".OHr'.'S; 

!*  ca’cu’ates  mea", var,med' an,  and  japR* 

(*  alo-g  a  »c*'zo'ta'  plat  Yo-  ide-rY 
(•  arc  cneex-ng  ;re  spread  oY  tne  data 
var  PRvN'^a: 

i,o,.,«,x,^',3,xor:,vcr;,XuEn,-:,^i 
Grapr;-:  ve',  Orap’r-ode,  Errcrcoce 
Nun,  hEO  IAN,.  OX,  rlx.XSCA.E ,  "E  At,,  VARIANCE 
S"Vr 

P*  a€  CC 1  O' 

set  5 
P 

BEGIN 
rr,a-NV?; ; 
ne-;setg' ; 


ing  f?r  a  data  set  •) 


mg  Out! '  ers 

CHAR; 

■integer; 

INTEGER; 

double; 

FIlEna-E; 

word; 

infoptr; 

pointer; 


set-' - 

00.(36,1 

0,75,10); 

Rt  AC  a  *» 

(setg* ) ; 

I?  (no 

I  ExiS’I 

setg* .nar,e) )  or  (< 

re leaseEs); 

6a‘  * 

; 

ere; 
**r-  te’ 

n ; 

W3 ; ~  ( 

l/C  y Ou 

-an;  a  printout? 

*ri te1 

n; 

wr* ;e( 

PI  ease  ua- 1  ■ - 

r£  anva 

R  C  setg-* , 

ME AN, VARIANCE); 

SCn“ Art 

LCX 

: =setg“ 

h>Tifn. 

MIX 

: =setg* 

.OATA[setg- . SIZE  j 

xca: 

:  =  6C; 

vcr: 

: *  140; 

XL  t  N 

.  -  *  Qh  . 

,  -  F*OU  , 

if  h*  a 

•  1  ox  <  0 

.CSCG1  *Her‘  beg^n 

(setd*.s;ZE  <-  2) 


) ; PRVNT 
•); 


=REaOkEv ; 


»r- tel r ( ■ No  spread  m 
pause;rreaCAey; 
re' easel?) ; 
ex;  I; 
end; 

XSCalE:.X.En/'hIx-lCX); 


the  data,  a 


f  *  0  <*•  }  i 


(*  Yind  the  med' an  »; 

IF  GDDtsetg* .SIZE)  Then  MEDIA"  :*  set g* . Data! i  :.etg" .  Si  ZE  ♦  1)  Civ  2; 
Ei.SE  BEGIN 

m; 0  :■  setg*. SIZE  Civ  2* 

MEOIAN  : «  (setg* .0ATa(m;D]  *  setg* .CA’AfniD  *  lj)  /  2.0 
END; 

('  DRAW  THE  NUMBER  LINE  ') 
graphi x; 

SETCOLOR(WHITE); 

LINE (XORI, YORI, XORI *XLEn,vOR;); 

LINE (XORI , YORI , XORI ,YCRI*10); 

IInE(XCRI*XLEN, YORI, XORI *XLEN,VORI *10); 

OUTTEXTxy(XCRMC,  VCR  1*20,  LC  ); 
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cuttextxv(xori*xlen-ic,yori*2C, m); 

(*  Plot  the  HEAN  tick  hark  and  the  Hedian  tick  mark  •) 

SETCOLOR(REO); 

line (ROUND ((HE Ah-L0X)*XSCALE).X0RI,Y0RI«10,R0UND( (HE an-lOX)*X$CALE)‘XOR1,YORI); 
set  col  or(l ight green) ; 

LlNE(ROUNO( (Hedian-lOX) *XSCAlE)*X0R1, YORI*10,  ROUND( (H£dian-LOX)*XSCAL£)«XORI,  YORI) ; 

(«  now  plot  Each  op  the  data  points  *) 
setcclor;ye.vOu;; 

FOR  j:»  I  to  setg*.  SI2E  DC  beg’n 

xl : * round! (setg’ . DaTaFJ ] -LOX) 'XSCAtE ) »XORI ; 
yl : *YORI -10; 

pi xe i co I  or: *getpixe' (xl,yl); 

wtr  le  p:  At1  col  or*yel  I  o-  do  Beg-r  ( ’  IP  This  POINT  IS  already  PLOTTED,  *) 
y::=y\7:  (*  THEN  GO  UP  TWO  DOTS  TO  INDICATE  THAT  ») 

pi  xei  ccl  O’ :  »getpi xe'- (xi.yl) ;  (*  HORE  Than  One  POINT  IS  PLOTTED  HERE  ') 

end; 

pltpixEl  u:,yl,ye'”o»); 

END; 

('  no-  d’a-  the  tab-1 ar  data  Bo*  at  the  Bottome  of  the  screen  *) 

SETCO^CRIWhi’E) ; 

LINE  E — 5 , 205,05, 320; ; 

L I NE (05, 205, 555, 205) ; 

LlNE(555,2C5,555,32C); 

LINE (05. 32C, 555, 320); 

(*  No-  convert  a’ I  the  data  to  strings  and  write  the  Strings  *) 

outtextxy (50,220, 'File  *  ’ ♦  setg* . nahe ) ; 

STR(setg-.SIZE:6, STUFF);  outtextxy(5C, 235, 'Samples  »  ‘‘STUFF); 

STR(I ox:  12:5, st„"; ;  OLTTEXTXY(50, 250, ' Lo  •♦stuff); 

STR(":*:;2:5,stw'T;;  outtextxy (50, 265,  Hi  *  '♦stuff); 

SETCO.CR.'REO); 

STR(nean:',2:5, stuff);  C'UTT£xtxy(30C.220,  'Hean  .  '♦stuff); 

setcc'o’('ightgreer); 

STR(hEOI an: 12: 5, STUFF ) ;  CuTTExTXv(3C0,235, ’Hedian  -  '♦stuff); 

setcoiorfwhi te); 

STR (VARIANCE :  12: 5, STUFF);  OU^EXTxy  (300, 250,  '  Vari  ance  *  '♦STUFF); 

STR( SORT (VARIANCE ) : 12: 5, STUFF) ;  OU'TEXTXY(3CO, 265, ' S.  Oev  *  ♦STUFF); 

CUTTEXTXY (50, 335,  ' J )  Jackknife  Statistics  h)  Back  to  Hen./) 

jac: v-eadkey; 

IF  UPCASE (JAC) * ' J ’  Then  BEGIN 
setco’o'Iwh' te*blink); 

outtextxy(50,  285, 'Jackknife  statistics: ' ); 

JACK (set g* , HEAN, VARIANCE) ; 

STR(hEan:12:5, STUFF);  outtextxy (50, 300, ' 2  Hean  -  ’♦stuff); 

str (sc’ t (vari ance J : 12: 5, stuf f );outtextxy (300, 300,  ' 2  S.  Oev  *  '♦stuff); 
pause: vreadkey; 
end; 

IF  uP0aSE(PRynt).’y'  then  PRTSC; 

restorecrtmode; 

rel ease (p) ; 

END; 


(»  original  *) 

PROCEDURE  PLOTit; 

(*  this  plots  one  data  set  against  another,  basically  an  x  y  plot  *) 
vaR  stuff  :filename; 

teitpset.setg.seth  :infoptr; 

PRYNT  .'CHAR; 

Y,J,  YLEN,L,fl,X,H!D,XORI,  Y0RJ,XLEN,xl,yl  :  INTEGER; 

xscal e, yscalE , nuh, heoi an, l Ox, hi x, hean, variance  : double; 
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:douile; 

••pointer; 


ni ,  hmean, hvari ance, ’ on.  Hi n 
P 

BEGIN 
mark(p); 

new(tempset);ne>.(setg;;ne»CsetH); 
setwindOw(36, 10, 78, 18); 

REA0lN(setg*); 

if  (not  EXI$T(setg~.name))  or  (setg*. SIZE  <  =  2)  Then  begin 
release  (p); 
exit; 
end; 

reafiin(setn*); 

ir  (not  EXIST(setr*.name))  or  (setn'.siZE  <=  2)  then  begm 
rei ease(p) ; 
exi  t; 
end; 

•ri te’ n; 

WRITEf'Oo  you  want  a  printout?  :  ' ) ;PfiVNT: =REA0KEV;»ri te(prynt); 
»ri te’ n; 

«ri te'n(  --  PLEASE  WAIT  --'); 

writeln; 

ME anvaR (setg  , rtcAN, vaRiANCE); 
tempset*:=setg*; 

SORTHR(setg'); 

LOX;  *setg*  .  DA  <  A L  i  j ; 

Hi  X: =se tg'.CATA [setg" .SIZE] ; 
setg':=tempse:*; 

ME ANVAR (setM* , hMEAN, MVARI ANCE ) ; 
tenpset*:*setn*; 

SCRThrj set”* ) ; 

LCn;=setr.*.DATA'l]; 

him: *setn*.DATA[setr*.siZE ]; 
setn*:»tenpset'; 

XCRI  :  =  8C; 

VCR!  : =210; 

XlEn  :--25C; 

VlEh: =190; 

if  M- x>Mi r  then  h i M :  =  n,  1  x ; 
if  nin*r-x  tnen  Mix;=nin; 

VSCA,. l  :  =  VlE N/  ( h I  a ) ; 
xsca'e:=xlen/(n-.n); 

(r  dra.  tne  axes  *) 

grapr i x; 

SE’CCuCR;wnlTE5; 

LINE (XCRI, VORI.XORI.XLEN.YCRI); 

LINE (XORI , VQRI , XORI , VCRI -VLEN) ; 


(»  pl0~  The  mean  line  and  WRI’E  THE  mean  and  PILE  name  *) 

SETCOtORIREO); 

LINE (XORI. 1, ROUND (YORI-MEAN'VSCAlE), XORI. XLEn, ROJNO( YORI -MEAN'VSCALE) ) I 
str (mean: 12:5, stu'f) ; outtextxy(300, 330, 1  Mean  •  ' »stuff); 
0UTTEXTXV(300, 320,  Pile  *  ' ♦setg'. name); 

str (variance: 12, stuff );outtextxy(300, 3£0, 'var  -  '»stuff); 

SETCOLCR(green); 

L INE (round (xOR I ‘MME AN»xSCAlE),yori‘l, round (XOR I ‘Mmeanrxscale), YORI  ylen 
str(Mnean:12:5,stuff);outtextxy(100, 330,  Mean  -  ‘Stuff); 
0UTTEXTXY(100, 320,  File  •  '♦setn'.name); 

str(hvariance:12,stuff);outtextxy(100,340, 'Var  •  '‘Stu^f); 
setcolor(wtiite); 

(»  NOW  PLOT  EACH  OF  THE  DATA  POINTS  ») 

SETCOLOR(YELLOW); 

FOR  j:»  1  TO  setg*. size  00  BEGIN 
xl : -round (XORI »setn* . data[J]»XSCALE) ; 
yl:*vQRi-TRuNC(setg'.OATA[J]*YSCALE); 

PUTPIXEL (xl ,yl , yel 1 0») ; 
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end; 

if  up Case (prynt) ■ ' v '  then  prtsc; 

pause:  »readl<ey; 
restorecrtmode; 

•elease(p); 

END; 


(*  original  ») 

(»  this  plots  the  data  in  a  time  series  fashion  *) 

(*  it  can  plot  a  moving  average  of  any  odd  size  window  *) 

procedure  tihep^dt; 

VAR  AVERAGES, seig  : INFoptr; 

MOVING, prvnT, jac  :ChaR; 

XSCAuE, WINDOW, v, J, Yi.EN,  L,R,  X,  HID,  XORI , YORI,XLEN,xl,yl  : INTEGER; 
Sun, ysCaeE  , Npn, MEDIAN, l OX, Hi x, mean, VARIANCE  : double; 

STUFF  : FILENAME ; 

point!, point?  : integer; 

pixelco’c*  :word; 

p  :pointer; 

BEGIN 


markin', ; 

new(setg) ;ne-;averages) ; 
set»indo»(36, ID, 76, 19); 

READlN(setg*); 

iF  (not  £XIS'r(se;g'.nane:;  or  (setg*.S12E  2)  THEN  begin 
reiease(p); 
ex  i  t  ; 
end; 

•indG«:=C; 

averages":«setg*; 

wri tel n; 

wRITEI'Do  you  want  a  printout?  :  ' ) ;PRYNT: =REA0KEv; 
wri tel  n; 

WRITE!  Use  moving  averages?  :  ' );HCVlNG: •REACkEV; wri teln( '  ’.moving 
wri  tel  r,; 

IF  UPCASE(hDVING)=’V'  then  BEGIN 
WINDOW: v?; 

While  not  Odd(«ind0w)  do  begin 
WRITE; 'Window  size  fo-  averages  (ODD):  ' ) ; intREAD(wINDOw) ; 
wri teln; 

END; 

writeln.c  --  Please  wait  --  '); 

for  1  to  (setg*. size-*indow)  do  begin 
(»  now  calculate  the  moving  average  values  ») 
sunt'O; 

for  y:"  1  to  window  do 

Siir,: *  sur  ;etg'.data[x*y]; 

averages*. data [x*(trunc (window/?) < 1 )]: -Sian/windOw; 

END; 

END 

Else  wri teln; ’  --  Please  wait  --  ’); 

HE ANVAR ( se  t  g* , HE AN , VAR I ANCE ) ; 

SORTHR(setg*); 

LBX: *setg* .DaTa[1] ; 

HIX: -setg*. 0ATA[setg*. SIZE]; 

XORI  :•  80; 

YORI  :-210; 

XLEN  ;•  500; 

YlEN:.140; 

YSCAZ.E:*Y4.£N/(HIX); 

griphix; 

(*  ORAW  THE  NUMBER  LINE  ») 

XSCAlE:-TRUNC(500/setg*.$IZE); 
if  xscale*0  then  xscale:*l; 

SETCOlOR(whITE); 

LINE (XORI, YORI,  XORI ♦XLEn.yORI); 

LINE (XORI , YORI , XORI , YORI -  YUEN) ; 
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FOR  X:  =  1  TO  TRUNCCC/XSCAlE)  00  BEGIN 

LIN£(X0RNX*50*XSCAlE,V0R:,X0R^X*50'XSCAlE,V0RM0); 

STR(X«50:3,STUFF); 

OUTT£XTXV(XORI *X«SO’XSCALE -8,  VORN 15,  STUPE )  ; 

ENO; 

FOR  X:«  1  TO  4  DO  BEGIN 

LINE (XORI , ¥0RI-X*35, XCRI-10, VCRI-X*3S) ; 

STR;;;hIa/4)*x):9:3,STuPP); 

cuttcxtxv;xor;-sc,vor:-(x'35)-4,stupf); 

ENG; 

(r  PlO"  The  MEAN  line  and  WRITE  THE  MEAN  AND  PILE  NAME  ♦) 
setco.or(Rec); 

LIN£(XORM,ROJNC(VCRI-M£AN'VSCAlE),XORI.XlEN,RCUND(vORI-MEAN*VSCALE)); 
str (mean : 12: 5, stuff ); out textxy (250, 330, ’ Mean  *  '♦stu'ff); 

seicolor(.nite); 

CUTTEXTXV (250, 320, ’Pile  *  ‘♦setg'.name); 

Str;.indOw:12,Stuff);o-ttextxy(250. 340,  Window  -  '’Stuff); 

(♦  NOW  PtCT  EACU  op  The  CATA  POINTS  *) 

SETCO.ORtvELLOW); 

pcintl:*l; 

P0InT2: =setg* .SIZE; 

IF  wIN00wa>  0  THEN  begin 

(»  calculate  me  first  and  last  points  who  will  *) 

(«  oe  plotted  depending  on  tne  window  size,  ’) 

( r  since  some  data  points  do  not  nave  a  moving  average 
POINTi: =POInT1»1»TRunO(wInOOw/2); 
pc' nt2: 'POintZ- t rune (windOw/2); 
end; 

FOR  j:.  point:  TO  P01NT2  00  BEGIN 
xl:«round(XOR;0*XSCALE); 
yl  :«vOR!-TRunC  (aver  ages*.  OATa[J>vSCAuE); 

PUTPIXEL(x:,yl, yellow); 
end; 

IP  UPCASEtPRVNTJ.’V  then  PRTSC; 
pa^se: -readLey; 
restoreertmode; 
release(p) ; 

ENO; 


(r  original  ') 

PROCEOURE  COMBINE; 

(*  this  appends  a  second  data  set  to  the  end  of  a  data  set  ♦) 

VAR  x  :  INTEGER; 

Sftl,set2  :  ir.foptr; 
p  :  pointer; 

BEGIN 
mark(p) ; 

new( se  1 1 ) ; new ( se  1 2 ) ; 
setwind0w(36, 10,78,18); 

TWOSETS (set 1* , set2* ) ; 

IP  (not  EXIST(seti'.name))  or  (not  EXIST(set2‘ .name))  THEN  exit; 

WRiTE('Name  tne  new  set  :  ’ ) ; RE ACL n( set 2' . name ) ; 

writeln; 

FOR  X:-  1  TO  setr.SIZE  00 
setr.OATA[X»setl‘.SIZE]  :*  setl*.OATA[x]; 
setr.SIZE  :•  setl'.SIZE  ♦  set2*.SIZE; 

SAVE(set2'); 

release(p); 

ENO; 


(»  original  ') 
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Procedure  ftestvar(seta,setS:’rfo;var  equal ibooleani; 

(»  this  performs  an  f-test  for  equal  variances  bet.een  two  data  sets  ') 
var  pvalue, alpha, fstat, vara, varb, meana.meanb  :double; 
ten?  :string[15]; 

dfl,df2,code  .-integer; 

begin 

equal :«true; 
writeln; 

wri teln( ' Performi ng  F  test  for  Equal  variances 
wri  teln; 

meanvar (seta,meana, va'a; ; 
mear.var  (sets, means,  va'S) ; 

(»  calculate  the  test  statistic  and  set  the  degrees  of  freedom  *) 
if  vara>*varb  then  begin 
fstat; *vara/varb; 
dfl:*seta. size-1; 
df2:*sett. size-1; 
end 

else  begin 
fstat:  •varb/'vara; 
dfl:*setb.si  ze-1; 
df2:*seta.s:  ze-1; 
end; 

(»  no«  calc-late  the  p  value  ') 

pvalue;  sf value (fstat, df;, df 2) ; 

write('Enter  alpha  leve'  :  '  J.-doub'ereadUlpha); 

»ri te’n; 

if  pval-e  >  alpra  then 
writeln(’F  test  passed  ...') 
else  begin 
edual :=fa’se; 

«r i t e ’ r. (' F  test  fa;led 
end; 

wri tel n( ' var  A  *  ' , vara : 12 : 5! ; 
uriteln(va'  B  =  ‘ , varb : 12:5); 
write’n('Ary  *ey  continues 
pause: ^readAey; 
end; 


(♦  orig-nal  *) 
proced-re  tltest; 

(»  a  t-test  for  t*o  sets  «-th  equal  variances, independent  sets  r) 
var  eq-ol  : boolean; 

alpha.pvalue,  tst  at,  spool  ed.diff,  vara,  vans,  meana.meanb  .-double; 

df  : integer; 

seta, sets  linfoptr; 

_  :pointer; 


beg-n 

mark(p); 

ne«(seta);ne«(setb); 
twoSETS  (seta',  sets*); 

IF  (net  EXIST(seta"  .name) )  or  (not  EXIST(setb*.name',)then  begin 
reiease(p); 
exit; 
end; 

(►  first  check  to  see  if  variances  are  equa’  *); 
ftestvar(seta*,setb‘, equal ); 
if  not  equal  then  begin 
release(p); 
exit; 
end; 

meanvar (seta*, meana, vara); 
meanvar (setb*, means, varb); 
di  ff : ■meanameanb; 
df:*seta'.size*setb'.size-2; 

(*  find  pooled  standard  dev  ’) 
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spool ed:»sqrt( ((seta". si  ze-l)*vara  ♦  (setb".size-l)’varb)/df ); 
if  spooled  <  0. 0000001  then  begin 
writeln('s  pooled  =  ',spooled:12:5); 

wri teln; 

writeln('s  pooled  <  0.0000CCI  ...’); 
writeln(’leaving  tne  test  routine 
pause: *readkey; 
release(p); 
exi  t 
end; 

(*  calculate  the  test  statitic  *) 

tstat:*abs(diff/spooled*sqrt(l/seta".size*l/setb".size));  (*  use  this  to  integrate  t  and  get  p  value  * 

write’n; 

writeln('NO.  performing  T  test.'); 
w>-’te;  'Enter  the  alpha  level  :  ');doubleread(alpha); 
pvaiue:»tvalue(tstat,df); 
if  pvaiue  i  alpha/?  then  begin 
wri teln( ' no  evidence  to  reject  hypothesis  ...'); 
end 

else  begm 
wri teln; 

wri teln( 'Reject  tne  null  hypothesis  (A*S)'); 
write' n('  means  are  statistically  different  ...'); 

end; 

writeln; 'mean  A  =  ' ,meana: 12: 5) ; 
writeln( 'mean  8  =  1 ,meanb: 12:5) ; 

write’n; 

pause:=readkey; 
rei ease (p); 
end; 


('  original  *) 
procedure  t2test; 

£ *  a  t-test  for  independent  sets,  equal  variances  not  needed  *) 

(*  Th-s  works  like  the  procedure  above  with  different  variance  formula 


va'  equal  :boolean; 

stanerr.pvalue,  alpha,  tstat  .-double; 

spool ed.diff, vara, varb.meana.meanb  tdouble; 

df  :integer; 

seta.setb  :infoptr; 

p  :pointer; 


begin 

mark(p); 

new(seta);new(setb); 

twosets(seta",setb"); 

IF  not  £XIST(seta*.name)  then  exit; 
if  not  exist(setb'.name)  then  exit; 
meanvar (seta" ,meana, vara) ; 
meanvar (setb",meanb, varb) ; 
di ff : «meana-meanb; 

stanerr: =  sqrt(vara/seta".size*varb/setb".size); 
if  stanerr  <  0.0000001  then  begin 
writeln('standard  error  *  ', stanerr: 12:5) ; 

*ri  tel n; 

wri teln(' standard  error  <  0.0O0CCC1  ...'); 
wri teln( ' leaving  test  routine  ...'); 

pause: *readkey; 

exi  t; 
end; 

tstat:*A8S(diff/sqrt(vara/seta*.size«varb/setb*.size));  (*  use  this  to  integrate  t  and  get  p  value  *) 

df:-seta*.s1ze-l; 

if  df  >  setb*. size-1  then  df:-setb". size-1; 
pvalue:*tvalue(tstat,df); 

wri  t e  1  r. ; 

write('Enter  the  alpha:  ');doubleread(alpha); 
if  pvaiue  >  alpha  then  begin 
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writeln; 

writeln('No  evidence  to  reject  hypothesis 
end 

else  begin 
wri teln; 

wri tel n( 'Reject  the  null  hypothesis  (A-B)'); 
write1n(’  means  are  statistically  different 

end; 

wri teln( ‘mean  A  «  ’,meana:12:5); 
wri  teln(  'mean  B  1  '  ,mear,B: 12:5)  ; 
wri teln; 

pause: *readkey; 

release(p); 

end; 


(*  original  ») 
procedure  t3test; 

('  weakest  test,  independence  not  needed  *) 

(*  works  Basically  like  the  aBove  tests  But  requires  paired  data  *) 


var  equal  rboolean; 

standev, sun, sumsq, a' pha,pval ue, tstat.meana  :doubi e; 
x, samples  :integer; 

seta.setB  :infoptr; 

p  rpointer; 


Begin 
mark(p) ; 

ne*(seta);ne.(setb) ; 
twosets(seta", sets*); 

IF  not  Ex:ST(seta*.nane)  then  exit; 
if  not  exi st(setb*.name)  THEN  exit; 
samples:*seta*.size; 

if  samples  >  setb'.sijre  then  samples; *setB‘ .si ze; 
if  samples  <  2  tnen  exit; 
sum:=C; 
sumsq: >0; 

for  x:=l  to  samples  do  begin 
seta*. da t a [x] : *seta*. data [x]-setb*. data [x]; 
sian:*sum»seta'.data[xj; 
sir.sq:'SLsnsq*sqr(seta".data[x];; 
end; 

meana:*sum/samples; 

standev:=sqrt(!samplesrsumsq-sqr(meana);/  (samples'(samples-l))  ); 
if  standev<  0.C00C0C1  then  begin 
writelnfstandev  *',standev:12:5); 
writeln; 

wri teln; 1 standev  <  0.0Q0CCC1 
wri  tel  n( '  1  eavi  r.g  the  test  routine  ...'); 
pause; *readkey; 
exi  t; 
end; 

tstat:«ABS(meana/!standev  *  sqrt(samples))); 

pva!ue:*tva)ue(tstat,samples-l); 

writeln; 

writef'Enter  the  alpha  :  '); doubleread (alpha); 
if  pvalue  >  alpha  then  begin 
writeln, 

wri teln( 'No  evidence  to  reject  hypothesis  ...'); 
end 

else  begin 
writeln; 

writeln('Reject  the  null  hypothesis  (A*B) ' ) ; 
writelnC  means  are  statistically  different  ...'); 

end; 

writeln('mean  •  ' ,meana; 12: 5); 
wri teln; 

pause: -readkey; 
release(p) ; 
end; 
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PROCEDURE  uRANOOX; 

(*  generates  a  set  of  uniform  samples  *) 

VAR  X  :  INTEGER; 

seta  :  infoptr; 

p  :  pointer; 

BEGIN 
mark(p) ; 
new(seta) ; 

set window! 36, 10, 78,105 ; 
wri te( 'ho-  many?  ;  '); 
intread(seta".size); 
if  seta".size>15C0  then  aegin 
wri tel n( ’ Number  set  to  max  of  2500';; 
seta* .si ze:=2500; 
end; 

wRITElN; 

WRITE ( ' Name  for  data  file  :  '); 
readln(seta*.name); 
setname: =seta* .name; 
wri  te’.n; 

for  x:  =  1  to  seta". size  do 
seta*.data[xj :  =  (ran3(seed)); 
save(seta*); 

END; 


function  uni form(bi , 1 ow:doubl e) :  doubl e; 

(’  returns  one  uniform  random  variable  *) 
BEGIN 

uniform:  «rar.3( seed) » (hi  - 1  ow)«l  Ow; 

END; 


funct-1  on  po«er (number, exponent: doubl e) : double; 

(*  nand’es  exponentiation  for  positive  numbers  with  any  power  ») 

label  10; 

begin 

if  exponent =0  then 
power: =1 

else  if  number=0  then 
power: *0 

else  if  nunber  >  0.0  then 

power  :*  exp(exponent'ln(number) } 
else  power: *nurber; 

10: end; 


function  wgrandom( alpha, beta: doubl e) : double; 

(*  Wallaces  procedure  for  generating  ganma  vars  ') 

(♦  This  is  called  by  the  beta  generating  function  *) 
var  temp3,  temp4,  tei>?2,  temp5  tdouble; 
label  10; 

BEGIN 

10:  tem>2:wran3(seed) ; 
temp3:«1nt(alpha); 
terp4:*alpha- tempo ; 
count  :«trunc(  tenp3)  ; 
temp5:«l; 

for  y:*  1  to  count  do 
tempi:  ’tent)5'ran3  (seed); 

if  (t«ip2  <*  l-alpha*temp3)  then  terg)5: *tert)5*ran3(seed) ; 
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tem5:*-l*ln(temp5); 
tenjj2:«ran3(seed) ; 

If  (ten*>2  <•  power(temp5/temp3,temp4)/(i-temp4*temp4*tene}5/temp3))  then 
wgrandom:-temp5*be:a 
else  goto  10; 

END; 


function  fgrandom(alpna, beta: double): double; 

(•  fishman's  method  of  generating  ganrna  rv's  *) 

(*  This  is  called  by  the  beta  generating  function  *) 
var  temp, temp2:double; 
label  10; 
begin; 

10:  temp:=-l*ln(ran3(seed)); 
temp2:-ran3(seed); 

if  (temp2  <*  po*er(temp/exp(temp«l), alpha-1))  then 
fgrandom; *alpha*temp'beta 
else  goto  10; 


function  bet a var (alpha, beta: doubl e) : double; 

(«  This  generates  beta  vars  by  generating  a  ratio  of  gamoa  vans  *} 

var  temp: double; 

begin 

if  alpha<l  then  temp: *fgrandom(alpha, 1) 
else  temp:*wgrandom(alpha.l); 
if  abs(temp)>C.C01  then 
if  beta<l  then 

Detavar:«temp/(temp«fgrandom(beta,  1)) 
else  Detavar:=temp/(temp*wgrandom;beta,  1)) 

ELSE  8ETAVAR: *0; 

EN0; 


procedure  lotsofbetas; 

(*  generates  A  SET0F  beta 
VAR  x 
seta 
P 

alpha, beta 


deviates  *) 

: INTEGER; 
:infoptr; 
:pointer; 
: double; 


BEGIN 

mark(p); 

ne»(seta); 

setwindow(36, 1C, 78. 18); 

WRITELN; 

write! 'enter  the  alpha  :  '); 

doubleread(alpha); 

writeln; 

write ('enter  the  beta  : 
doubleread(beta); 

WRITELN; 

write ('how  many?  :  '); 

intread(seta'.size); 
if  seta*. size  >  2500  then  begin 
writeln('Nurt)er  set  to  max  of  2500  ); 
seta*. size  :■  2500; 
end; 

count:*seta*.size; 

wRITELN; 

VRITE( 'Name  for  data  file  :  '); 
readln(seta*.name); 
setname:*seta*.name; 
wri teln; 
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for  x:=  1  to  trune(seta'.size)  do  begin 
seta*.data[x]  :«  betavar(alpna,beta); 

end; 

savefseta*); 

release(p); 

end; 


procedure  Nrandom; 

(*  generates  A  SET  OF  normal  deviates  *) 

VaR  x  :  INTEGER; 

temp, temp2, mean, vari ance  :dOuble; 
seta  : inf opt r; 

p  t  pci nter; 

BEGIN 
marXjp) ; 
ne-(seta) ; 

setoi ndo«;36, 1C, 78,18); 
wBITEcn; 

write; 'e-ter  the  mean  :  '); 
do-bl eread;mean) ; 
wr i tel n; 

.rite;  ente-  tbe  varij-ce:  '); 
dOub ieread; vari ance); 
uRTElN; 

wri te; 'ho-  many?  ;  '); 
intreadlseta'.size); 
if  seta'. size  >  25CC  tnen  begin 
wri  tel  n( '  Njrber  set  to  max  of  25CC); 
seta  .  S' ze  :  ~  25 
end; 

count: -seta" .si  ze; 
write in; 

WRI 'EC  Name  for  data  file  :  '); 
readl r (seta*. name); 
setname: *seta‘ .name; 

•  wri  t e  1  n ; 

for  x:=  1  to  trunc(seta*. size/2)  do  begin 
.rite’r;.); 
temp  :  *ran3(seed) ; 
temp2  :=rar.3(seed); 

seta*. data[x*(trunc( seta'. si ze/2))]:=  sqrt(-2*Tn(temp))»cos(2'pirtemp2); 
seta‘.data[x]  :*  sqrt(-2*ln(temp))*sin(2*pi*temp2); 

end; 

if  odd(seta'.size)  then  begin 
temp: =ran3(seed); 
tenp2:*ran3(seed); 

seta*. datafseta*. size]: -sqrt(-2'in( temp) )*sin(2*pi*temp2) ; 

end; 

for  x:=  1  to  seta*. size  do  begin 

seta*.data[x]:*  ( seta*. data[x]»sqrt (vari ance) )«mean; 
end; 

save(seta'); 

release(p); 

end; 


function  normal  (mean,  vari  ance: double)  .’double; 

(*  returns  one  normal  deviate  *) 
var  tem),temp2,temp3  :double; 

BEGIN 

temp  :•  ran3(seed); 
temp2  :*  ran3(seed); 

temp3  :*  sqrt(-2»ln(temp))»cos(2'pi,temp2); 
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normal :«  (tempG'sqrt (vari ance) ) *mean; 

end; 


procedure  directory; 

(*  makes  the  call  to  check  the  disk  directory  for  any  file  specification  *) 

var  filespectfilename; 

begin 

setwindow(36, 10, 78, 10) ; 

writeCEnter  Dir  mask  :  ' );readl n(fi lespec) ; 
w!N3Cw;i, 1,83,25); 
snowdir(filespec); 
end; 


(»  original  ') 
procedure  average; 

(r  this  procedure  averages  each  term,  of  any  number  of  data  sets  into  one  *) 
var  seta.setb  iinfoptr; 

done,numfiles,x  tinteger; 

p  :pointer; 

begin 
mark(p); 

new(seta);ne«(setb); 
setwindo»[36, 13, 78,18); 
njnf  i  1  es:  =  1; 

»ri tel n; 

wri  tel  n( 1  fi  >-st  f  i  1  e:  ) ; 
wri  telr.[  '*•»«*«•»***  1 ) ; 
read;n(seta*); 

if  not  exist(seta*.name)  and  (seta‘.name[l]<^  !)')  then  BEGIN 
write'n; 

write; ' Data  file  does  not  exist  ...'); 

PAUSE :>READkEV; 
exi  t; 

END; 
repeat 
done: =C; 

wri tel n; 

writeln; ‘Next  file: ’); 
wri teln( •***»*»»*»* 1 ); 
readin(setb*); 

if  exist(setb'.name)  then  begin 
for  x:»  1  to  seta*. size  do 

seta*.data[x]:*seta*.data[x]»setb*.data[xj; 
nicnf  i  1  es:  *njnf  i  1 es*l; 
end 

else  if  (setb*.name<>'3' )  and  (setb'.nameo'q1 )  then  begin 
wri  tel n; 

write!' Data  file  does  not  exist 
PAUSE : *REaOkEV; 

END 

else  if  (setb*.name* ‘ Q ' )  or  (setb* .name- 'q‘ )  then  done:=l; 
until  dore*l; 

for  x:-l  to  seta*. size  do  seta*.data[x]:«  seta*.data[x]/mjTifiles; 
clrscr; 

write('Name  for  new  set:  ' );readln(seta".name); 

save (seta*); 

release(p); 


procedure  enterratefvar  sys:systemrec); 
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(►  This  procedure  allows  the  user  to  enter  or  change  the  interest  rate  *) 
(*  associated  with  a  ICC  system.  *) 

var  tempname  :  worrd; 

fil  :  file  of  systemrec-; 

begin 

setwindow(50, 15, 78, 22) ; 

WRITEln; 

wri te( ' fi 1 e  name?  C .sysname, ' ):  ' );readln(tempname); 

If  TEnpnahE  <>  ' *  THEN 
SysNAhE : =TEMPNAME ; 
tempname: =SysNAhE; 
assi gn(f i 1 , tempname* ' .stm' ); 
if  exist2(tempname* 1 .Stm' )  then  begin 
reset  v'f- 1  ); 
read(fil.sys); 
closetfi 1 ); 
writeln; 

wri teln( 1  --  file  read  -  -  ' ); 
end 

else  wri tel n ; '  --  ne»  file  --  '); 
wri te’r; 

write! '  interest  reateCapr):  ' );doubleread(sys.rate); 
erG; 


procedu'e  entva*s(var  sys:systemrec) ; 

(*  This  routine  allows  the  use'  to  specify  what  types  of  single  variable  *) 
;»  cost  components  contribute  to  the  LCC  of  the  system.*) 
var  ca-ntvar  :  integer; 
tenpname  :  worrd; 
fil  :  file  Of  systemrec; 

begin 

set.indo-!SC, 15, 78,22) ; 

WSITf In; 

wri te! 'fi le  name?  ( ' , sysname, ' )  :  ');readln(tempname;; 

IF  teppnake  «  '  Then 

SysNAhE: «TEHPNAhE; 
tempname: =SySNAnE; 
assign;ri 1 , tempname* ' .Stm' ) ; 
if  e*i Sl2 (tempname* ' .Stm' )  then  begin 
reset  ('H); 
readff : ’ , sys) ; 
closer: i ); 

wri  tel n; 

writeln('  --  file  read  --  '); 
end 

else  writelnC  --  new  file  --  '); 
wri tel n; 

wr-te!  how  many  variables  :  '  );ir,tread(countvar); 

window (1, 1,80,25)  ;c'rscr; 

setwindowO ,2,  78,22); 

writeln;  Single  variable  Components'); 

wri tP J n( '  *  +  +  +  *+*+*+++*********+*+++  ' ) ; 

wri  tel n; 

FOR  X:*  1  TO  countvar  CO  BEGIN 

WRITE!X:2,'  TYPE:  ' ) ;00UBLEREA0(sys. VARs[l,Xj ); 
if  SyS.VaRS[1,X]  •  0  then  BEGIN 

WRITE(  constant  :  '); 

00U8LEREA0(SYS. VARS[2,  X) ) 

ENO 

ELSE  IF  SYS. VARS[1 , X]<11  THEN  BEGIN 
WRITEC  LOW:  1  );D0UBLEREA0(sys.  VARs[2,  X] )  ; 

writer  HI:  1 ) ;D0uBLEREA0(sys. VAfis[3, XJ); 

ENO 

ELSE  8ESIN 

WRITE ( ‘  MEAN:  • )  ;00UBLEREAC(sys.VARs[2, x] ) ; 

writer  VAR:  ’  );D0U8LEREAC(syS.VAfis(3,X]); 

ENC; 

writef1  nocost  :  ');doubleread(sys.varstime(<5,*]); 
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writer  phase  in 
writer  constant 
write ('phase  Out 


'  );dOuBleread(sys.varstime [!,*]); 
1  );dOuDlereaC(sys. varstime[2,x]); 
' ) ; douBl eread(sys. varstime[3,  x] ) ; 


END; 

sys.vars[l,0]:«countvar; 

end; 


procedure  savesys!s>s:s>stemrec); 

(’  This  procedure  saves  an  CCC  system  spec  fication  to  disk  r) 
VAR  OVER  .-CHAR; 

tempna^e  i-cr-d; 

TE*p?  :F(utNA«; 

sys* '  e  : f *  1 e  or  systemrec; 

beg:-. 

se;*irsp.:5;,:j,78,22;; 
wr  ’  t  e  - ; 

wr-te(  r’e  name?  (',sysr.ame,  ):  ');  readlr, (tempname)  ; 

IF  TElPNA-i  <>  '  THE‘i 

SysNA«E:=TE"PNAME; 
tempra'-e:  =SyshA»E; 

TEm=2:  *C0hCA7  ( tempram .  .  Sir.  ; ; 

IF  EXI$T2;:enp?;  Tn£  . 

SEOr. 

WR'.’E;  f-’e  Exists,  Cve--ri te?: 

OVER: =REaCnE  •  ; 
te ' 

EnO 

EuSE 

OVER:  **'  v  ; 

IF  uR-Ajc(CV^R^  *  V  T  H  £ 

be  or. 

AS$;oi.:sysp:.e,TE«P2;; 

REwR ;  'E  (SyS:  I-e)  ; 
wai'E  ;sysr:..e,Sys; ; 

CuCSE (svsr  i.e; ; 

En:; 

VC; 


prpcedu'e  entercer(var  sysrsystemrec); 

(*  This  -eads  m  the  Beta  Cov  matrix,  and  Tirds  the  chc’esky  square  root.  ') 

!'  This  ’S  3”  O'^ginai  proced-'e  written  Tor  chcesky  decomposition  using  *) 

(’  the  method  as  explained  m  j.h.  ma: ndona’.d 1  s  STAT;sTiCAt  computation  ») 

(*  It  also  reads  in  all  other  information  needed  Tor  the  CfR’s  of  the  ICC  *) 

(*  system  to  Be  simu'ated  ') 
va- 

cer,7,r,x,y,j,k  tintege'; 

temp2, temp, sum, sum?, sjp3  idoupie; 

tempname  :«0'rd; 

Til  : T- T e  oT, systemrec; 

intercept, certype  .-char; 

Beg-  n 

set.:ndo.;50, 15, 78,27); 

WR I T  E I  n ; 

write('File  name?  ;  ,sysname, ' ):  ' ) ; readl n( tempname; ; 

IF  tempname  «  "  Then 
SySMAME:. TEMPNAME; 
te»n>name:«SysNAME; 
assign (Til .tempname* ' . stm' j; 
iT  exist?(tensjname» '  .stm/ )  then  Begin 
reset (Til); 
read(Ti l , sys) ; 

ClOSe(Ti 1); 
wr1 teln; 

wr  i te In  £  . .  file  read  • -  ' 
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end 

else  wntelnC  --  ne»  file  -•  '); 
writetn; 

wri te( ' How  many  CERs  :  ' ) ; intread(x) ; 
if  x>2C  then  Begin 

wri  te(  'X  set  at  upper  limit  of  20.'); 
wri  tel  n; 
x: *2C; 
end; 

sys.cervars!C.l.l]:=x; 
wri tel n; 


writel  wn  er  CER 

:  ' );  intreadCcer) 

if  ce'>? 0  tne'  beg'n 

te ;  CER*  set  at 

upper  limit  o'  20 

k  »  o  1  W  ■ 

ce-; -2Z; 

e*d; 

rpo*  [  1 , 1, 8C,  2i) ;  c’ 

'SCr; 

set* -^ao-0 ,2, 70,  77) 

) 

CtS  .’nforma 

•.-on  cer;  ,ce',  ; 

wr'  te'  -■[ '  *********** 

wr  •  t  e '  n  ; 

WR  1 '  E .  ; 

repe- 

.’■•te,'  t.umpe'  of  p  s  ;max=9):  ');intread;r); 
’  n<lC; 

«'ite'"E  T'me  pe'-cc  lengths  ...'); 
w te' r; 


-’*■  te » 

r.ocost  .  : 

');do-bleread;sys.ce'time[d,cer])- 

wr • *  £  ' 

prase  * n  : 

);dOublereao(sy  .cer time [1, ce'l ) ; 

-r • te( 

constant 

1 );doubleread;sys.ce'time[2,  cer]); 

te: 
c  •  'scr; 
te’  ** 

prase  out  : 

’ ;;ooutleread(sys.certime[3,cerl); 

mr: le-n 

(  R)  Reg-'ar  ) 

; 

ur-tfln^  K)  Nat -'o’  log'); 

•  -•te’r;  L)  v.ear':ng  Curve'); 

wri te’r; 

reoeat 

.'-te;  wr-c'  type  o'  CER  ?  :  ' ) jcertype: *readkey; 
wn  te’n(ce'type) ; 

sys.ce' types [cer]: “upcasetce'type) ; 

U  nf  (sys. ce' types [cer]* '  R 1 )  or  (sys.  cer types [cer]  = '  N ' )  or  (sys.certypes[cer]*'l'); 

wr ; te'; 

wr-teTIs  tnere  an  intercept  term?  :  ');intercept:*readkey; 

.r- te  "; 

if  ( i r te'cept * 'y ' )  or  ( i ntercept* ' V' )  then  begin 
or- tel r; 

wri  te>;  'The  entercept  will  be  called  p  .r*!,'.'); 

wri  te ' n( 'enter  the  ntercept  value  (/?’.n*),')  : 1 );douCleread(sys. cerbetas[cer,  n*l] ) 
case  certype  o' 

'R  :Beg-r 

sys. CerVARs[cer,n.l, 1 ];=0; 
sys.cerVARs[cer, n.l, 2] : *1 . 0; 

SyS.CerVARs[cer,nfi,3]; 'l.C; 
sys.cerVARs[cer,n*;,4]:=l.C; 
end; 

'N1 : begin 

sys.eerVARs[cer,n-i ,  1] :  =0; 
sys.cerVAPs[cer,n«l, 2] : *ekp( 1. 0); 

Sys.cerVARs[cer,n*I, 3] :  -expU.C); 
sys.cerVARs[cer,n*I,4];=1.0; 

end; 

'l'  tbegin 

sys . cerVARs[cer (n*l,  1] : *0; 
sys.cerVARs[cer,n»l,2]:*exp(t.O); 
sys. cerVARstcer, n*i ,  3] : *exp(l  .0); 
sys. cerVARs[cer,n*l,4] ; *1.0; 
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end; 

end;  (*  end  of  case  *) 
end;  (*  end  of  if  ') 
clrscr; 
writeln; 

writelnf 'Explanatory  Variables  CER(  ■  ,cer,  ' ) '  ); 
wr iteln(' «*****•****’**«"*«****•'' ); 
writeln; 

F OR  X:*  1  TO  n  00  0Eu,N 

WR;;e;X:2,'  TVPE:  •  );OOUBlEREAO(SyS.cerVARs[cer,X,l]); 

WRI";  low:  ‘ ) ;3Ou0LEREAC(sys. cerVARs(cer,  X, 2] ) ; 

write;’  h!  :  ' );DOu0^EREAO(sys.cerVARs[cer,X,3]); 

write;  a  :  ' );d0uDTeread(sys.cervarstcer,x,4]); 

ENO; 

windo-C,  1,0C, 25); clrscr; 
set-i  na3.;3,2, 70,22); 
wr;te’r;  Seta  estimates  CER( ',cer,  ‘ 
wr:  te'  r ; ' •«•'•♦*••«*»»»♦**•**♦**»♦  ) ; 

wri  tel  n; 

F 0"  x: =  1  to  n  do  Deg'  r 

wr-,  tel 1  Enter  /5,x,'  : '  );doubleread(sys.cerbetas[cer,x]}; 
end; 

wri  te'  r; 

if  (inte'cect*  y  )  or  (intercept *' v ' )  then 
n : :r»l; 

sys.cer»ars[cer,  0,  IT : *n; 

(*  init'a'i  ze  CO'  mit'ix  r) 
for  x: «  ;  to  n  do 
for  y:=  1  to  n  do 
sys.cercovs[cer,x,yT:=0; 

(*  read  in  the  cov  rr.afix  in  triangular  font  *) 

«ri teln; 'no-  the  Covariances 
if  ( intercept*  y  )  or  (i ntercept = ' V ' )  then 
wri  teTn( '  Remember,  the  entercept  is  called  0',n,'.'); 
writeln; 

for  x:=  I  to  n  do 
for  y : =  1  to  x  do  Deg'r 

w:te(  cov [ ' , x, ',  ,y,  ]  *  ' );oouDleread(sys.cercovs[cer,y,x]); 
end; 

wri  tel  r; 

writeCEnter  the  *iSE :  ');doubleread(sys.cermse[cer]); 

(»  construct  the  cholesky  square  root  *) 
for  x: =  1  to  n  do  begin 
if  x>l  then 
for  y ; =  1  to  x-1  do 
for  z: »  x  to  n  do 

sys.cercovs[cer,x,Zj:*sys.cercovs(cer,x, z]-sys.cercovs[cer,y,x]*sys.cercovs[cer,y, z] ; 
tetn>:*sqrt  (abs(sys.cercovs[cer,x,x])); 
if  abs(temp)<*O.CCl  then  t emp : = 1 ; 
for  y:  »  1  to  n  do 

sys.cercovs[cer,x,y]:*sys.eercovs(cer,x,y]/temp; 

end; 

end; 


procedure  najl  ti random; 
var 

counter, z,n,x,y, j,k 
ten®2,  temp,  sun,  s<jn2,SLrO 
betas 
tempname 


:integer; 

: double; 
tdoubvect ; 
:worrd; 
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(*  type  as  speccifiec  by  "tipe"  wich  is  passed  in.  *) 

(*  NOTE:  hi  and  low  conta'.n  the  mean  and  van  for  normal  variables.  ') 

var  type2,1ow2,hi2  :  integer; 

tempval  :  double; 

begin 

type2:*trunc(tipe); 
case  type2  of 

C:sample:=lo*; 


ltbegin 

tempval :  ^tsetawa^tl-S,  C.5) ; 
tempva’ : =tempval * (n: - lo*)  »  1 o«; 
sampl e  : *power (tempval , transform); 
end; 

2:begln 

tempval := bet a van (1.35, 1.35); 
tempval :  =  tempva' ' (hi  - 1  o-)  <  low; 
sample  ;=po«er( tempval , transform); 
end; 

3;Deg:n  , 

tempva’ :=betavar(0.5,1.5); 
tempval : -tempval ’ (hi  - 1  o»)  *  lo*; 
sample  : =power (tempval , transform) ; 
end; 


<:beg;n 

tempva’ :=be:avar(3.C,l.C); 
tempval : =tempva’ * (hi  - 1 o-)  ♦  ’o«; 
sampl e  ; «po«e' (tempval , transform) ; 
end; 

5:beg; r 

tempval :=betavar(2. 75, 2. 75) ; 
tempval :=tempval*(hi-io»)  »  lo«; 
sample  : *power (tempval , transform) ; 
end; 


6:beg’ " 

tempva’ :-Detavar(l.C,3.C); 
tempvai:=tempvai*(hi-lo«;  ♦  low; 
samp’  e  :  =po*er (tempval ,  transform,) ; 
end; 

7:begin 

tempval : *betavar (d.5, 1.5); 

tempval :  =  tempva’ *(hi - low)  ♦  lo*; 
sample  : *power(tempval .transform); 
end; 


B:begin 

tempval :* be tavar(4. 0,4.0); 
tempval :*tempvalr(hi- low)  ♦  low; 
sample  : *powe'( tempval , transform) ; 
end; 

9: begin 

tenpval :«betavar(i.5,4.5); 

tetrpval:»tempvalr(hi-low)  *  low; 
sample  : *pOwer ( tempval .transform) ; 
end; 

10:begin 

terrpval :  «unif  orm(low,  hi ); 
sample  ; =power(tempval , transform) ; 
end; 
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lltbegin 

tenjjval :  -normal  (lo«, hi )  ; 

Single  :*pOwer(tempval, transform); 

end; 

end;  («  of  case  statement  *) 

end; 


procedure  pval  (var  amount:double;nocostt,phasein, cons, phaseout, ratetdouble); 
(•  This  is  the  present  value  routine  for  finding  the  present  value  *) 

('  of  a  future  cash  stream.  The  amount  of  money,  lenght  of  phasein,  *) 


(r  phaseout,  and  constant  periods  are  passed  in.  *) 

var  areapi , areapo, areaco, total  area  ;  double; 

lastcjmarea, nei ght, val ue, nocost  :  double; 

x,le,phi,po,co  :  integer; 

portion  :  largevect; 


begin 

wri teln[ ’amount- 1 .amount); 
wri tel n( 'nocostt* 1 .nocostt) ; 
wri tel n( ’phasein- ’ .phased  n) ; 

wri teln{‘cons*’, cons); 

wri tel n( ’phaseout- ’ .phaseout); 

wri teln(’rate=', rate); 

pause: -readkey; 

areap; : -0; 

areapo: =C; 

areaco: -0; 

total  area: =0; 

phi :«trunc(pnasein); 

po:*trunc(phasec„t); 

CO:  *tr*r, deans', ; 
nocost :*trunc (nocostt); 
height:*!; 

(*  calculate  the  total  area  ») 
if  phi>C  then 
total  area: *phi»0.5nheight 
else  phi:=C; 
if  co>C  then 

totaiarea:=totalarea  ♦  corheignt 
else  co :  =0; 
if  po>0  then 

total  are::*  total  area  ♦  po*C.5'height 
else  po:*0; 
le:*phi *co*po; 

(♦  calculate  the  portions  *) 
if  phio-0  then  begin 
lastc^rarea:  =0; 
for  x:  =  1  to  phi  do  beg:r, 

portion[x]:=((xrheight/ph’)*x«0.5-lastciararea)/totalarea; 

1 astcunarea : *por ti  on [x] 'total  area; 
end; 
end; 

if  cooO  then 

for  x:»  phi*!  to  phi«co  do  begin 
portion[x]: "height /total  area; 
end; 

if  pooO  then  begin 
lastcunrea:*0; 

for  xt-  le  downto  ie-po*l  do  begin 
portion[x]:*((le-x*l)*(le-x«l)ri/por0.5-lastcunarea)/totalarea; 
lastcinarea:*portionrx]»totalarea; 
end; 
end; 
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(*  claculate  the  overall  pv  number  *) 
value: *0; 

for  x:-  1  to  le  do 

value:*value  ♦  portion[xj'amoant/po»er((i->rate/lCC),x*NCCO$T); 

amount: *value; 
end; 


procedure  mortecarlo; 

(»  This  actually  runs  the  sho-,  it  calls  the  routines  to 
(»  system  cost  as  many  times  as  requested, 
var  total  cost, tempcost, tempcost2, first* 
run, njmrjns, counter, count er 2, x,y, 2 
name 


fylename 
sysfi  1  e 
systum 
betas 
tempset 


douple; 

:  integer; 

:  »arrd; 
f  i  1 ename; 

file  of  systemrec; 

systemrec; 

doufivect; 


tempmal 

p 


:  tensq; 

:  pointer; 


simulate  the  *) 
') 


(*  tne  system  file  store  to  disk  *) 
(*  record  to  hold  cost  components  *) 


begin 

mark;:}, 

(*ne- (systum.);*) 
ne.;tempse:); 
set*indo*(3C. 10, 78,20); 
write' n; 

write( 'System  file?  : ‘ ) ;read!n(name) ; 
fylename: *concat (name, ' ,stm' ); 
if  not  exist2(fylename)  then  begin 
wri tel n( 'That  file  is  not  here  ...'); 
pause: =readxey; 
release;?); 
exi  t; 
end; 

urileln; 

write('no-  many  runs?  : ' ) ; i ntread(numruns) ; 
if  numruns>1500  then  beg'n 
njrrun j:  «1500; 

wri tel n(' Runs  set  at  max  of  1500.'); 
end; 

assign;sysfi le.fylename); 
reset(sysfiie); 

read(sysf i 1 e, systum);  (’  read  the  disk  file  into  the  system  record  *) 
for  run: j  1  to  numnuns  do  begin 
writeC. '); 
total  cost: -0; 

(r  add  variable  costs  to  the  total  cost  ») 

counter : "trunc(systum. vars[l ,0] ) ;  (*  number  of  variable  components  *) 
for  x:=  1  to  counter  do  begin 

tempcost: *sampie(sy slum. vars[l,x],systim.vars[2,x],systim.vars[3,x],l); 

pval  (teirvcost,  system.  varstime[-, x] , systum.  varstime[l,xj,  systum.  varst ime[2, x],  systum.  varst ’me [3, x],  systum.  ra 
te); 

totalcost:-total cost  ♦  tempcost; 

end; 

(*  now  add  cers  to  the  total  cost  *) 

counter:*trunc(systim.cervars[0,l,l]);  (*  nember  of  CERs  *) 
for  x:*  1  to  counter  do  begin 

counter?: *trunc(systun.cervars[x,C, 1]) ;  (*  nimber  of  input  vars  for  this  cer  *) 
betas[C]:-cour,ter2;  ('  a  counter  used  in  multinormal  *) 
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for  y:-  1  to  counter?  do  begin  («  puts  betas  and  cov  in  temp  variables  for  use  *) 
betas[y]:*syst  jn.cerbetas[x,y] ; 
for  Zt*  1  to  COunter2  do 

tempmat[y, z]:*systLm.cercovs[x,y, z]; 

end; 

mul tinormal (betas, tempmat); 
tempcost2:*0; 

for  V:*  1  to  counter?  do  begin 

temocost:*sample(systum.ce-varsr-\.  y,  1] ,svst  jn.c»rvars(x,y,2], systum.cervars[x,y, 3] , systum.cervars[x,y,4]) ; 
if  y*l  then  fi rstx:*tempcost;  (*  store  for  use  in  lc  cers  ') 
if  (systum.certypes'x]*  'l ' )  or  (systtfr,. certypes[x]  =  ' N ' )  then 
tempcost: *Ln(tempcost); 

tempcost2:=tempcost2*tempcost*betas[y]:  (*  running  total  within  cer  *) 
end; 

tempcost2:=tempcost2*sample(ll,0,systum.cermse[x],I.C);  (*  account  for  USE  variance  of  prediction*) 
if  (systum.certypes[x]*'L')  or  (syst  jr,.cer  types  [x]  =  'W  )  then 
tempcost2:=exp(tempcost2); 
if  (systum.certypes[xj='L’)  then 
tempcost2:*tempcost2  *  firstx; 

p  v  a  1 C  tempcost2, sys turn. centime [4, x] ,  systum.  certime[l,x],  syst  urn.  cer  time  [2,  x] ,  systurr..  certime[3,x] ,  systjm.  rate) 

I 

total  cost: *total cost»tempcost2; 
end; 


tempset'.data[runJ:*totaicost;  (*  store  this  observation  of  total  cost  *) 
end; 

wri *el n; 

wri telr;  Enter  name  for  outp-t  set  :  '  );readln(tempsetA.r,ame); 
tempsef.si  ze:  «num**ns; 
save(te-pset'); 
rel ease(p) ; 
end; 


(*  Everything  from  here  do«n  is  menus.  These  are  * 
(*  the  heart  of  the  user  interface,  what  you  * 
(*  see  here  are  the  menu  test  entries  and  the  * 
(*  resulting  procedures  called  for  each  menu  * 
(*  choice.  The  actual  scrolling  of  the  cursor,  * 
(»  first  letter  selection,  and  popuo  windo-s  * 
(*  are  handled  i r.  the  Oav'EnEnu  unit.  * 
(* 

£  9+  ****** +  *  +  +  *  +  +  +  *  +  *+■*  +  *  +  *  +  +  +++  +  +++  +  +++ +  +  +  **  + 


l 

) 

y 

) 

) 

) 

) 

) 

) 

) 


PROCEDURE  er.temENJ; 
var 

GO, go?  :char; 

wich.temp  ;integer; 

p  :pointer; 

TEMPNAME  tWORRO; 

BEGIN 

mark(p); 

new(sys); 

sys*.virs[l,0]:-0; 

sys*.cervars[0,l,l]:»0; 

*********** +*+++*****+) 

wl ch; *6; 

menu*.left[*ich]:*34; 
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menu*. max [wich]: *4; 
menu*. top [wi ch]:*10; 
menu*.text[l,wich]:='vars  (single)  '; 
menu*. text[2, wich]:* 'Define  CERs 
menu*.text[3,wich]:='Interest  rate  '; 
menu*. text[4,wich]:='Save  file  '; 
menu*.textio,wich]:='aackup 

menu*. text (menu*. max [•ich]*l, wi ch] :* '  DEFINE  SVSTEM 

£******* ******9 9*9*9*99  ******* *******) 

go:*menu*.text[l,wich]  [1]; 

GO?: «menu* . text  f 1 , wi  ch] [ I ] ; 
temp: =1; 

WHILE  upcase(GO)  <>  ' B 1  DC  BEGIN 
windo. (1,1, 00,25); 
menuCOntrol (ui ch, go, go2, temp) ; 

GC: -UPCASE (GO) ; 

£9*.*****.*******9**99999*.99.***.99**9*  J 

CASE  GC  OF 


'V  :  entvars(sys*); 

'O'  :  ente'-cer(sys*); 

T  :  enteTateCsys*); 

'S'  :  savesys(sys'); 

END;  (*  END  OF  CASE  AND  ELSE') 

end;  (*•  Wn 1 t  LOOP  END  *) 


release(p); 

END;  ( r  PROCEDURE  END  *) 


PROCEDURE  testhEN,,; 

var 

GC,go2:cra*; 

»: ch, temp: integer; 
temps t ring: st ring!5; 


begin 
wi ch: *5; 

Change  These  paranETers  to  hake  a  new  menu  screen  ** »**»**») 

menu*. left[»icn];*19; 

menu*. top[»i ch]  :-6; 

menu*. max [«i ch]: =3; 

menu*. text [1, wi Ch] : * 'Equal  van, Ind' ; 

menu" . text [2, »i Ch] : * ’ Inc.  only  '; 

menu*. text [3, «i ch]:* 'Samples  paired' ; 

men„*.texi[C,»ich]:*'Backup  ’; 

menu*.text[menu*.max[wich]*l,»ich]:*'  Tests  ‘; 

£  9* *******999*99 9* 9*****9*****9********9**9* ****9*********** ****** *******) 

go:  «mer,u*.  text  [1,  wich]  [1]; 

G02: *menu* . text [1, »i ch] [1] ; 
temp:*l; 

WHILE  upcase(GC)  <>  '0'  00  BEGIN 
windo»(l, 1 , 80,25); 
menucontrol  (wi ch, go, go2, temp) ; 

GC : *UPCaSE ( GO) ; 

£**999**9 9 *99**9* 9* 9*99**99*999***9) 

CASE  GO  OF 
'E '  :tltest; 

' I ' :t2test; 

’S':t3test; 

’B'texit; 

end;  (*  of  case  ') 

£******************** 9* ****9**99999****99* 9 ************* ********9***9*** ) 

end;  (*  while  *) 
end;  (*  procedure  *) 
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PROCEDURE  workHENU; 
var 

GC,go2:char; 
wi  eft,  temp:  integer 
tempstring: slringl5; 


begin 

wi  eft:  ■  m ; 

(’»*****»*  CHANCE  THESE  PARAMETERS  TO  MAKE  A  NEW  MENU  SCREEN  **«*♦*«..) 

men„*.1e't[wicft]:*18; 

men.u*.top[-icftj  :«6; 

menu‘.max[wi eft] : =6; 

menu*.text[l,wich]:= 'Moments  ' ; 

menu*. text[?,wich]:* 'free  Histogram'; 

men. *. text [3,wicft] :- 'Time  plot  '; 

menu*. text [0,»icft]:= 'Backup  '; 

menu* .  text  [A,  «•’ eft]  :  =  ' X  vs  v  Plot 

menu*. text [5, *i eft]: -'Quantiles 

men.* .text [6, wi cft]:= 'Nonpar .  Prob  '; 

menu*.text[nenu*.max[«icft]*l,wich]:*‘  Statistics  '; 

go: •men.* . tex t [ 1 , wi eft] [1] ; 

G02 : »menu* . t  ex  t [ 1 , wi eft ] [ 1 ] ; 
temp: 

whIcE  upcaseCCOl  <>  '8  CC  BEGIN 
window;;, 1,80,25;; 
men.control t-1 eft, go, go2, temp) ; 

G0:=UPCASE;G0); 

CASE  GO  CE 


' M ' :moments; 

'P 1 : histogram; 

'T ' : t imepl ot; 

'X' :pl oti t; 

‘ Q ' :quanti 1 es; 

’N':probability; 

END;  (♦  ENO  OP  CASE  ») 

end;  [*  while  *) 
end;  ('  procedure  *) 


PROCEDURE  fileMEN'J; 
var 

G0,go2:cftar; 

wi Ch, temp: i nteger; 

tempstring:stringl5; 

begin 
wich: -3; 

[»»»**««»»  change  these  parameters  to  make  a  new  menu  screen  *-«*»«**»; 

menu*. left (wich]: *18; 

menu*.top(wich]  :-6; 

menu*. max [wich] :-4; 

menu*. text[l,wich]:-'Read  ASCI!  '; 

menu*.text[2,wich]:-'write  ASCII  '; 

menu*. text[3, wich]: -’Set  Directory  '; 

menu* . text [4, wi ch j : * ' Qi sk  Directory'; 

menu*.text(0,wich]:*'Backup  '; 

menu*. text[menu*.max(wich]*l, wich]:*'  Piles 

go: -menu* . text [1 , wi eft] [1] ; 
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G02:*menu*.text[l,wi cn][l]; 
temp:*l; 

WHILE  upcase(GO)  <>  'S'  00  BEGIN 
w1ndow(l.l. 80,25); 
menucontrol (wi ch,go,go2,temp); 

GO:*UPCASE(GQ); 

(**************** **ft*****ft ****** ft *ft ) 

Case  go  of 

'S':SHOwOIR('*.set'); 

'ft' :REAOASCII; 

•w ■ ;wr:tasc i : ; 

'O'  idirectory; 

ENC;  (»  ENO  Of' CASE  *) 

(  ***********  ****  X*  ******  *************  *******.****************** 

end;  («  end  of  while  *) 

ENO;  (*  end  of  procedure  ») 


PROCEDURE  randotmenu; 
var 

G0,go2:char; 
wich,  temprinteger; 
tempstring: St ring)5; 

begin 

wich:=7; 

(****»**"  Change  THESE  parameters  TO  make  a  new  menu  SCREEN  *»*•»*«*»») 

menu*. left [wich]:  *18; 

menu*.top[-ich]  :*6; 

mer.u*.max[wich]:*5; 

menu* .  t ex  t  II ,  wi  Ch] :  *  ■  Uni  f  onr,  Random 1 ; 

menu*. text [2, wich]:*1 Normal  random  ’; 

menu*. text [3, wioh]: = ' Generate  betas'; 

mer.u* .  text  [4,  *i  cn] :  *  '  Hul  ti  -normal  '  ; 

menu*. text [5, «ich]:=' Simulate  costs'; 

menu*. t ex t[C, wich]:* 'Backup  '; 

mer.u*.  text[men„*.max[wich]»l,wich]:= ‘  Files 

(ft ****** ft*** ****ft**X***X*X*X**XXXXXX****X*X**XX******XX*X*X«XXXftXXX**X*** 

go: =menu* . text [1 , *ich][l]; 

G02: *menu* . textf 1, wi ch] [1] ; 
temp: «1; 

while  upcase(GC)  <>  8'  CC  BEGIN 

windOu(l, 1,80, 25) ; 
menucontrol (wi ch, go, go2, temp); 

GO : » UPCASE ( GO ) ; 

(*****ft*****x**********************j 

CASE  GO  OF 

'S' tmontecarlo; 

'll’  :uRAN00M; 

' N ' :nrandom; 

'G' : 1 otsofbetas; 

' M ' :mul ti random; 

ENO;  (*  ENO  OF  CASE  *) 

(*•** ********** ******** ft **X****ft*X**« ************* ************ ^ 

end;  (*  end  of  whi le  •) 

END;  (*  end  of  procedure  *) 


PRQCEOURE  datiMENU; 
var 

G0,go2:char; 
wlch.tene):  integer; 
begin 
wich: »2; 
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change  these  paraheters  to  hake  a  new  henu  screen  **>*««***) 
menu*.1eft[wich]:*18; 
menu*. top [wich]  :-6; 
menu*.max[wich]:*6; 
menu*.text[l,wich]:='Enter 
menu*. text[2,wich]:= 'Vie- 
menu*.text[3,wich]:*'Hod-,fy 
menu* . text [i, wi ch] :*' Comp i ne 
menu". text [5, wich]:= 'Average 
menu*.text[6,«ich]:='0efine  system  '; 
menu*. text [0,»ich]:=' Backup  '; 

menu*.text[menu*.max[-icn]*l,uich]:-'  Data 

£ 999  9999  9 +  **999.9 99* 9 9*9+9 9*999* 9999999*9  9*99*  *9999  9 **********************  ) 

go : »menu* . t  ext [ 1 , *i eh] [ 1 ] ; 

G02: -menu*. text [l,»icb][l]; 
temp: =1; 

WHILE  upcase(GC)  <-  '8'  00  BEGIN 
windO-!l ,1,80,251 ; 
menucontrol Ch, go, go2 . temp)  ; 

GO: =UPCASE (GO); 

[9*99  9  9  9  +  9  9*9  +  +  9  999  9  9  9  99.9  9  99  9  9.9  9  9  9  9  J 

CASE  GO  OP 
'E  :REE0KEV; 

'V  :see; 

'H':cbange; 

‘C  : comp: re; 

'A' :average; 

' D ' :entermera; 
end;  (*  end  oT  case  ») 

[9  999999-»99  9*99999+9^99  9.  9  + +  *  +  999  +  99  9.9  9.  99  9  +  9  +  9999*9  9  9  9.  9*9*  9  *999^ 

end; 

end; 


PROCEDURE  NE'.'SEEO; 
beg-n 

set-inoo-ClB, 8, -3, II); 
wri  tel "; 

write('Ne«  seed:  ' ) ; intreadfseed); 
if  seed>C  then  seed: -seed*  -1; 
end; 
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PROCEDURE  mainnENU; 
van 

GO, go?: char; 
wich, temp: integer; 
begin 

[**++9+* **9*9+999**99* 99+99999999*99) 

wich:*l; 

menu* .left[«*Ch]:*l; 

menu*. max cb]:=6; 

mer,u*.top[uicn]:-3; 

menu*.text[l,wich]:='Oata 

menu*,  text  [2,  wich].-*'  Statistics 

menu*.text[3,wich]:«'T-testing 

menu",  text  [4,«ricH]:*  'Files 

menu*. text [5, wich] :  =  'Random  deviates 1 ; 

menu*. text[6,wich]:«'Ne«  seed  '; 

menu*.text[0,wich]:='Quit  '; 

menu*. text [menu*. max [wich]*l, wich]:- ' 

go:*menu*.text[l,wich] [1]; 

G02: -menu*. text [l,wich][l]; 
t«n^>: -1 ; 

WHILE  upcase(GO)  <>  'O'  00  BEGIN 
windo*(l,l,80,25); 
menucontrol (»icb,go, go2, temp) ; 
GO:*UPCASE(GC); 

[999999999  99.9  9*9  99  9.  *9***9.9  9  9  9  +  ***  +  +') 


HA IN  HENU 
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CASE  GO  OF 

'O'  :  OATAHENU; 

'S'  :  WORKXENU; 

•T’  :  TESTNENU; 

’ F ’  :  filemenu; 

' N '  :  NEWSEEO; 

'R'  :  randonmenu; 

ENO;  (*  END  OF  CASE  AND  ELSE*) 
{**«*•****«»************************) 
end;  (*  while  LOOP  Eno  *) 

END;  (*  PROCEDURE  END  *) 


procedure  open; 
type  fyl*  file; 

van  p 

:pointer; 

X 

tinteger; 

val 

;real ; 

textfil 

:text; 

fil 

:fyl; 

result, size 

:word; 

beg'n 

grapnix; 

setcolor(white) ; 

1ine($0, 100, 210,  100)  ; 

)ine(50, 100,50, 20); 
setcolo'(red); 
line(51, SO, 210,60); 
for  x:  =  l  to  62  do  begin 
val :«sin(x/10)/1.5; 

putpi xel (51«x, trunc(60-val *50) ,yel 1 0*) ; 
end; 

for  x:*63  to  160  do  begin 
val :=sin(x/10)/4; 

put pixel (51 *x, t rune (60- val *50),  yellow); 
end; 

setcolor(.hi te); 
line(390, 100, 550,100); 
line (390, 100, 390,20); 
bar3d(391,100-40,421,99,8,true); 
bar3d(423, 100-60,453,99,8,  true); 
bar3d(A55, 100-50,485,99,9, true) ; 
bar3d(487, 100-35, 517, 99,0, true)  ; 
bar3d(519, 100-15,549,99,8, true); 
settextstyle(l,0,5); 

O’jTTextxy  (60,200, 'GENERIC  NODEL  BUILDER'); 
settextstyle(l,0,l); 

outtextxy (280, 240,  by  lLt  Oavid  Sumner'); 

setcolor(white); 

pause: =readkey; 

restoreertmode; 

end; 


(»  MAIN  PROGRAM') 

BEGIN 

open; 

seed:-12345; 

SETNAME :  ■ '  NEW  ; 
sysname:  •  'NEW  ; 
col oroncol or (whi te, bl ue) ; 

wrUe( '  GENERIC  NOOEt  -BUILDER  --  by  Dave  Sumer 

goto*y(l,25);write( ' 

col oroncol or (whi te, bl ack) ; 

mainHENU; 

END. 
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{JR-}  {Range  check. ng  off} 

{$9*}  {Boolean  comp’ete  evaluation  on} 

{JS»}  {Stack  checking  on} 

{SI.}  {I/O  Checking  on} 

{Jn.}  {8097  required} 

{$«  65500,16394,655360}  {Turbo  3  default  stack  and  heap} 

PROGRAM  HATVORkS; 
uses 
Crt, 

Oos, 

PRINTER, 

davemera,' 

Tv®E 

filename  =  stringli?]; 

TEnBVTEN  =  ARRAV  [1. .90,  r. .90]  OF  doodle; 
doub’eARR  =  arRav  [1..0C]  OF  double; 


INTARR  -  ARRAV  [1 

.90]  OF  INTEGER; 

V0RR0  *  STRING{9] ; 

InF0PtR  *  *  INFO; 

INFO  *  RECORD 

MATRIX  : 

TEN0VTEN; 

RCwSIZE  : 

INTEGER; 

COL  SIZE  : 

INTEGER; 

name  : 

WCRRO; 

AR 

mata,ma’3 

:  INFOptr; 

pause 

:char; 

A00S„3 

:  INTEGER; 

Fit 

:F ILE  OF  INFO 

MATNAMc 

:wORR0; 

TINV 

:doubi e; 

X ,  V ,  Z 

.•INTEGER; 

textfile 

:text; 

f ur.ct  •  on  power (number, exponent :doubl e) : doable; 
label  10; 

begin 

if  exponert=C  then  beg:n 
power; *1; 
goto  10;end; 
if  number*C  then  begin 
power: *0; 
goto  10; end; 
if  nunber  >  0.0  then 
power  :=  exp(exponentrln{njmber)) 
else  begin 

wri tel  renumber, 1  number  must  be  positive  for  power  function’); 
pause: *readkey; 
end; 

10: end; 


PROCEDURE  ludCTpfVAR  a:INF0ptr;  n,np:  integer; 

VAR  indx:  INTARR;  vaR  d:  double); 

CONST 

tinyl.0e-20; 

VAR 

k,j,imax,i:  integer; 
sun, djr.big:  double; 
w:  doubleARR; 
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BEGIN 

d  :*  1.0; 

FOR  i  :*  1  to  n  00  BEGIN 

big  :■  0.0; 

FOR  j  :■  1  to  n  00  IF  (abs(a*.NATRix[i , j ] )  >  big)  Then  big  :*  abs(a*. HATRlx[i , j] ) ; 
IF  (big  *  0.0)  THEN  BEGIN 

writeln(' pause  in  LUOCHP  -  singular  matrix');  readln 
END; 

w[i ]  :*  1.0/big 
ENC; 

FOR  j  : -  1  to  n  00  BEGIN 
IF  (j  >  1)  THEN  BEGIN 

FOR  i  :=  1  to  j-1  00  BEGIN 
sum  :*  a*. HATR]x[i , j]; 

IF  (i  >  1)  Then  BEGIN 

FOR  k  :=  1  to  i-1  DO  3EGIN 

sum  :=  Sjm-a*.HATRIX[i,k]*a'.MATRIX[k,j] 

END; 

a*.NATRix[i , j]  :«  sum 

END 

ENC 

END; 

big  :=  0.0; 

FOR  ’  :  =  j  to  n  00  BEGIN 
sum  :*  a* . haTRI X[i ,  j  ] ; 

IF  (j  >  1)  THEN  BEGIN 

FOR  t  :  =  1  to  j-1  00  BEGIN 

Siiii  :  =  sun-a'.HATR!X[i,k]*a‘.HATRIX[k,j3 
END; 

a*.HATRix(i,jj  :*  sum 
END; 

dum  :*  w[i  ]rabs(sum); 

IF  (dum  >  big)  thEn  BEGIN 
big  :*  dum; 
imax  :•  i 
ENO 
END; 

IF  (j  <>  imax)  THEN  BEGIN 
FOR  k  :*  1  to  n  00  BEGIN 
dum  :*  a*.NATRIx[imax,k]; 
a' .NATRIx[imax,k]  :=  a*.MATRIX[j,k]; 
a*.NATRIx[j,kj  :*  dum 
ENC; 

d  :=  -d; 

vv[imax]  :•  vv[j] 

END; 

indx[j]  :*  imax; 

IF  (j  <>  n)  then  BEGIN 

IF  (a" . MATRIX [j , j ]  *  0.0)  THEN  a* .HATRIX[j , j ]  tiny; 
dun  :=  1.0/a*.«ATRIX[j,j]; 

FOR  i  j*l  to  n  00  BEGIN 

a*.NATRIx[i,j]  :=  a-.HATRIx[i,j]*dum 
END 
END 
ENO; 

IF  (a* .HATRI X[n, n]  =  0.0)  THEN  a* .HATRIX(n,n]  :*  tiny 


FUNCTION  EXIST(teJH);WORRC)  :  BOOLEAN; 
VAR  FILtFlLE; 

OX  : BOOLEAN; 

TENPP:FILENA«E; 

GO.-CHAR; 

BEGIN 

TENPP: *C0NCAT (T£HP, '.HAT'); 
ASSIGN(fi) f TENPP); 

(SI-) 
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RESET(FIl); 

<SM 

OK:*10RESULT  •  0; 
IF  not  ok  then 
EXIST  :•  FALSE 
ELSE 
BEGIN 

CLOSE (FIl  ) ; 
EXIST : *TR„E; 
END; 

ENO; 


FUNCTION  EXIST2;te:ro:wCRRG;  :  BCClcAN; 
VAR  F I L :  F  I L  E ; 

CK  :  80*,l  t ; 

TEHPF:FKENA"F; 

GO: ChAR; 

BEGIN 

T-^PP;  =TE<iP; 

assign;t; ' ,tehpp;; 

<s:-> 

RESET(FI,.;; 

CK:  =  IORES>,.T  =  C; 

IF  nC*  C-.  TnE'« 

EXIS~2  :=  FA.SE 
ELSE 
BE  j  .  N 

closer:.;; 

EXIST2:=TSuE; 

Eno: 

ENG; 


PRCCECuRE  SAVEfNA'G: INF3ptr;AuTC: IN’ESER): 
VAR  OVER: ChAR; 

TE”p: filename ; 

BEGIN 

ove":  =  y ' ; 

IF  Al'G-G  Then 
BEGIN 

IF  EXISTINATG'.NANE;  thEn 
Be.  o  I  n 

wri  le’.r; WRITE  (' F IlE  EXISTS,  IVERWR 
OVER: ’REAOKEV; «ri teln;«ri  teln; 

ENO; 

ENO; 

if  upcase;cver;  *  'v  then 

BE  G I  n 

TEnP: =C0nCaT (katg" .name, ' .mat  ); 
ASSIGN(f;l,TEmP); 

REWRITE (FIl); 
wRITEJFk.MATG*); 

CLOSE (F IL); 

ENO; 

ENO; 


PROCEDURE  REAOASC 1 1 ; 

VAR 

X.Y.Z  : INTEGER; 

FIL  :text; 

60,  NAME  .-WORRC; 

mat  :  ir.f  optr ; 

p  :polnter; 


begin 

,nark(p); 

ne»(mat); 

setwindow(35, 1C, 15, 18) ; 

writeln;  WRITEt 'What  ASCII  file?'); 

REAOin(namE); 

wri teln; 

IE  NOT  EXIST2(NAME)  THEN 
BEGIN 

WRITETnC -FILE  COES  NOT  EXIST  ); 

PAUSE : =REAOKE  v; 
releasetol; 

EXIT; 

ENG 

else  begin 
assign^  Iu.nakE;; 
rescue:  j; 

Mata" . BOwS I  EE  :  =  C; 

wh ; l e  ngt  eoe;e;l)  oo 

Bt  G .  n 

ma'-.RCwSIZ.  :•  ma*-.RCWSIZE*I; 
ha"" . CO^SIZE : =0; 

WH,^E  NOT  EOLN(EIl)  l>C 

Be  G .  n  ’ 

ma**.CC..S:ZE  :  =  MA’-.COLSIZE*!; 

RE AC (r :l, ma t *. matrix [mat*. ROWS  I ZE,mat*.COL SIZE]); 

ENG; 

REaO.n;-  .e); 

EnG; 

close  c-io; 

write'n.-wRI'G;  Name  for  the  matrix  fi 1 e? ' );REAC.N(mat* .name 
SavE(ma*,G); 

EnG; 

re i ease  CP y ; 

t..C; 

PRCCG0„RE  RE  AG  IN (VAR  MAT ; IN*0dtr ) ; 

VAR  GG ; _haR ; 

TEMP; E IcENAmE ; 

BEGIN 

if  ex; st (mat* .nam: [ 

ther 
Peg'  r 

TEmR; -C0NCAT (mat*. NAME , ' .MAT' ); 
assi  gr.(fi  1  ,TEMP) ; 

RESET  (E  II  ) ; 

RE AGtr It ,mat* ) ; 
close cc 
erd 
ei  se 
BEGIN 

GCTCXV  C 1 ?, 191 ; 

rr; tec  Sor'y,  that  file  ’S  not  here 

GG: •REAGxEV; 

EnG; 

ENG; 


f unction  lOG(X: double; BASE :douBle) : double; 
BEGIN 

IE  (X<0)0R(BASE<2)  Then  BEGIN 
WRITE!  SORRv,  NO  n£GatIVE  x  OR  BASE  <  2); 
LOG: =1 
ENG 

Else  LOG: *lN(X) /lN(B/SE ; ; 
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END; 


PRCCEOURE  WRITASCII; 


VAR 

t  surname 
max 

DIG, DEC, X, v, 2 

F  I L 

GC.nahE 

mala 

V 

Be  G  *  n 


:filename; 
: do-fc’ e; 

: INTEGER; 

: text ; 
:wCRRC; 

: inf opt r; 

:  pointer; 


mark;? ) ; 

new(mgia) ; 

set-i  r.CG- c 35, 1C,  75, 18)  ; 

WRITE  I  W«ICh  NA*RIA:  1 ) ; RE ADEN (mat a' . NAME ) ; 

If  HZ'  EXIST (mata* .napE)  Then  BEGIN 
wn:  tel  n;  WR ITE  I  ’  *■  I WE  DDES  NOT  EXIST1); 

PAvSc ;  =REAG<t  ’» ; 
rel ease  Ip) ; 

E  X I  * ; 

END; 

REACIn(maTa); 

w'’te('Ne.  cata  'lie  name?  :  '  );readln(tempname); 

ASSIGN(f It, tempname); 

REWRITE (P I^); 

(•max; =  0; 

for  x:-  1  to  mata*.ro«size  do 
for  y:=  1  to  maia*.colsi?e  do 

if  aBs(mata*.mafix[x,y])>max  then  max: *mata* .matri x[x,y] ; 
di g:*t rune I'ogf max,  :C))»2; 
dec;=I0-d;g;r) 
dec: =0; 


di  g:  =  3; 

FOR  X:--  1  TO  mata'.ROvSIZE  DC  BEGIN 
FOR  V; •  1  to  mata* . COcSIZE  CC 
write (F iL.mata" ,haTr:x[X, v]:3IG:0EC); 
wRI*Ei.NfF  :l  ) ; 

ENC; 

CLOSE  I "  I  w ) ; 
rel easel?)  ; 

ENC; 


procedure  onenatlvar  mata:infoptr); 

begin 

wr  1 1  e 1 n ; 

wr  i  te(  ’  Which  matrix?:  ’ )  ;readln(r,ata'  .name) ; 

wr i te’ n; 

end; 


PROCEDURE  VIEw(MAT: [NfOptr; AUTO: INTEGER); 
VAR  X, v  : I nTEGER; 

saiv  :char; 

BEGIN 

wi  ndowU, 1,80,25); 

CLRSCR; 

FOR  X  :•  1  TO  mat‘.ROWSI?E  00 
BEGIN 

FOR  Y:«  1  TO  maf.COtSIZE  00 
WRITE (mat*. NATRIX[X, v] : 8:0, 1  '); 
WRITEcn; 

ENO; 

PAUSE:-REAOxEV^ 

IF  AUTO  =  0  Then  BEGIN 
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wri teln( 'Do  you  want  to  save  mat* .name, ' ?  (v/N) 

SAIV:*REA0K£V; 
if  upcase(saiv)-'V  then 
save(mat,0); 

ENO; 

END; 


PROCEDURE  REEOKEv; 

(»  react  a  matrix  in  from  the  keyboard*) 

VAR 

X.V.fVLE  :  INTEGER; 

OVER  :  ChAR; 

mat  : i nfoptr ; 

p  rpo’nter; 

BEGIN 
mark  £p); 
ne« (mat) ; 

set«; ndo.(35, 10,  75, 18); 

mat*. name: = ' nuI 1 ' ; 

mat*. col  si ze: *1; 

mat*.ro«s< ze:  =  1; 

wRI'E ( ' Name  for  matrix?:  '); 

RcAui_N(mat  . NAMc ) ; 

IE  EXIST (mat*. NAME)  THEN 
BEGIN 

WRITELN; WRITE (' E IlE  EXISTS,  OVERWRITE?  (V/N):  ') 
OVER  :«  REASkEV; 
wri  tel n; 

ENO 

ELSE 

OVE  R : * ' v ' ; 

IE  OPCASE (OVER)* ' V '  THEN 
BEGIN 

WRITELN; WRITE (' Ho«  many  rows?:  '); 
REAO.N(mat*.ROwSIZE); 

WRITELN;  WRITE (' ho«  many  cols?:  '); 

REAOLN(mat  .v.CuS .  ZE , ; 

EOR  X  :*  1  TO  mat'.ROwSIZE  CO 
FOR  v  :«  1  TO  roaf.COlSIZE  00 
BEGIN 

WRITELNjWRITE ( ' Enter  ELEMENT  [ ' ,X, ' , ' , V, ' ]: 
REACLN (mat* . MATRIX [X, V  j ) ; 

ENO; 

END; 

SAVE (MAT, 0); 
release(p); 

E  Nl,  ; 


PROCEDURE  CHANGE; 

VAR 

X,v  : INTEGER; 

SA1 V, chanj  : CHAR; 
mata  :infoptr; 

p  :pointer; 

BEGIN 

mark(p); 

new(mata); 

setwindow(35, 10, 75, 18); 
onemat(mata); 

READIN(MATa) ; 

IE  not  EXIST (MATA*. NAME)  THEN  begin 
release(p); 


ChanJ: * ' V ; 

WHILE  ChanJ.'V  OC 
BEGIN 

writeln; 

WRITE ('Change  something?  '); 

Chanj:*READxEY; 

IT  upcas?(?‘"3nj) -  • v '  then 
BEGIN 

writeln;WRITE( 'Change  which  el ement?(raw): ' ) ; 
REaO.n(X); 

wri tel n; WRITE ( 'Change  wh:ch  el ement? (col ): ' ); 

READLN'(V)  f 

wri te’n;WRITE ( ' OLD  VA.UE* ' , RATa* .RATRIX[X, Y], ‘  NEW*'); 
READi.N(RA’V.RATRIX1'X, Y]); 
wri tel n; 

vie*(mata,C5 

END; 

EnO; 

release;?); 

ENO; 


PROCEDURE  AGORA*  (var  NATA, HATB?INFOptr;AGDSUB: INTEGER) ; 

VAR  x,v  : INTEGER; 

SAIV, PAUSE  :  CHAR; 

BEGIN 

IF  (rata'.ROwSIZE  *  NATB-.RCWSIZE)  AND  (raTa'.COlSIZE  *  RATB'.COlSIZE)  the 
BEGIN 

write; 'Name  the  result:  '); 

REAuLN ;raTo* . NARE ) ; 

FOR  X  :  =  1  TO  HATA-.ROWSIZE  00 
FOR  v  1  TO  NATA-.C0.SIZE  00 

HAT5-.hA*RIX[X,V]  :*  RATA* . RATRIX[X, V]  ♦  RATfl* . HATRIXfX, V]*AOOSUB; 
view; HA-S, 0) ; 

ENO 

else 

begin 

wRl'£( ’Rat-ices  are  not  same  size 
pause ; *RE aOnE  v ; 

END; 

END; 


PRCCECURE  RULT  (RATI, RAT?: iNFOptr;  VAR  resul t: INFOptr; AUTO: INTEGER) ; 
VAR  x,  v,  Z  ••  INTEGER; 

SUR  idout'e; 

mat 3  :info; 

BEGIN 

IF  (RAT2-.R0WSIZE*RAT1-.C0LSIZE)  then 
BEGIN 

IF  AUTO  *  0  THEN 
BEGIN 

G0T0XY(30,6);  WRITE('RULTIPLV 

GOTOXY(15, 19) ;  WRITEC  ')l 

G0T0XY(15, 19);  WRITE( 'What  do  you  want  to  call  the  result?:'); 
R£AOLN(RAT3.NAHE); 

ENO; 

RAT3 . ROWS  I ZE : *RAT 1  * . ROWS IZE; 

RAT3.C0LSIZE:*RAT2*.C0LSIZE; 

FOR  x  :*  1  TO  RAT1-.ROWSIZE  DC 
FOR  v  :=  1  TO  RAT2-.C0LSIZE  00 
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BEGIN 
SU«: *0; 

FOR  Z  :*  1  TO  HATr.COLSIZE  OC 
SUN  SUN  ♦  HAT1* .MATRIX[X,Z]*MAT2*.MATRIX[Z,Y]; 

NAT3.HATRIX[X.v]:*SUM; 

ENO; 

IF  AUTO  »  0  THEN  begin 
resul t*:-mat3; 

VIEw(resuU,0); 
save(resul t,C); 
end; 

result* :*mat3; 

ENO 

ELSE 

BEGIN 

vRI'Eln; 

wRITEln;'  ' , MAT1* . NAME , •  X  1 , NAT2* . nanE, 1  UNDEFINED  DUE  TO  SIZES.); 

PAUSE; =REAOX£V; 

END; 

END; 


PROCEDURE  C0SY2  (VAR  SOURCE: INFOptr) ;  (*  ADO  A  COL  OF  Is  TO  LEFT  OF  MATRIX  TO  GET  INTERCEPT  *) 
VAR  X, Y, temps! ze  :  INTEGER; 

BEGIN 

sou-ce". col  size  :*  source' .col  si ze  »  1; 
for  x:  =  source*. cdsize  dowr.to  2  bo 
for  y:  =  1  to  source*. rowsize  bo 

S0urce'.ma:rix[y,x]:»sojrce'.matrix[y,x-1]; 
for  x:=  I  to  source*. rousi ze  do 
source*.matrix[x,l]:=l; 

E  NO.- 


PROCEDURE  C0PV3(VAR  SOURCE: INFOptr);  ('build  x  matrix  for  poly  fitting  ») 

VAR  X,v,Z  ;  INTEGER; 

BEGIN 

repeat 

write(’To  what  order?:  ' ) ;READLN(2); 

IF  Z  >  SOURCE*. ROwSIZE  Then 

WRITEln; 'Too  few  observes.  Max  order  =  '  .SOURCE* .  ROWS  I  ZE  -  2) ; 
until  z<source*. rowsize; 
for  x:*  1  to  source". rowsize  do 

source*.matri  x[x, 2] :  “Source" .matrixfx, 1J; 
for  x:=  1  to  source*. rowsize  do 
source*. matrixfx, 
for  y: *  3  to  z  do 

for  x:«  1  to  source*. rowsize  do 

source*. matrix[ x, y]: -power (source* .matrix[x, 2], y-1); 

end; 


PROCEDURE  TRANSPONAT  (var  HAT): INFOptr ; auto: integer ) ; 
VAR  X,y  .-INTEGER; 

SAIV  :CHAR; 

tempval  :double; 

BEGIN 

IF  AUTO  *  0  THEN 
8EGIN 
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write('name  the  result  : ' ) ;REAQln(maT1* .NAME) ; 
END; 

FOR  X:«  2  TO  MATl'.ROWSIZE  DO 
FOR  Y:«  1  TO  x-1  DO  beg;n 
tenpval  :*matl'.matrix[x,y]; 

KATl*.NATRIX[x,y]  :*  HAT1* .MATRIX [y , X] ; 
mat  J*.  matrix  [>,x];  =  tempva’.; 
end; 

x:*matl*.rowsize; 

matl*  . rowsi  ze: =matl* .col  s’  ze; 

matl'.colsi ze:«x; 

IF  AUTO  =  0  THEN  begin 
VIEW(mat:,CJ; 
save (matl, 0}  ; 
end; 

END; 


PROCEDURE  man;pmaT;vaR  maTa: INFQptr); 

VAR  X. v: INTEGER; 

S3' v, CHOIuc  :  CHAR; 

KONSTANT: dout’  e; 


BEGIN 


wri teln; 'Name 

the 

res-1 1?:  1  );H£AOLN(MATa*.NAM £}; 

«r;.  te’r, ; 1  ho«  • 

ill 

yO-  change  the  matrix?); 

wri teln( ‘ 

1) 

square  the  elements’); 

wr- teln; ■ 

2! 

sqa-re  root  of  the  elements'); 

writeln(' 

35 

add  a  constant  to  the  elements') 

wr-,  te'r; 1 

*) 

multiply  by  a  constant'); 

wri teln; 1 

5; 

divide  by  a  constant); 

write'n; 

CHOICE : =Rc ADkc 

V; 

CASE  CHOICE  0- 

' 1 1 :  FOR  X  :* 

3  y 

0  mata'.ROwSIZE  00 

FOR  v  :* 

I  TO  mata'.COlSIZE  00 

mata*.HATRIX[X,V];*  SQR(mata*.KATRIX[X,V]); 

2  :  FOR  X  :*  1  TO  mata'.ROwSIZE  DO 
FOR  v  :*  1  TO  mats' . COLSIZE  DO 

mata*.MATRIX[X,V]  ;*  SQRT;mata'.MATHIX[X,YJ); 

'3':  BEGIN 
wRITEl.n; 

write( 'Enter  your  constant:  ' ) ;REACLN(konstant); 

FOR  X  :=  I  TO  mata'.RCwsiZE  00 
FOR  v  :«  1  TO  mata'.COlSIZE  00 
mata*.MATRIx[X,Y]  :=  mata*.MATRIx[x, v]  »  konstant; 

end; 

't  :  BEGIN 
WRITELN; 

wri te( ' Enter  your  constant:  ' ) ;REACLN(konstant); 

FOR  X  :=  1  TO  mata'.ROwSIZE  DO 
FOR  v  :*  1  TO  mata'. COLSIZE  00 

mata*.MATRix[x,v]  :  =  mata*.HATRix[X,v]  *  konstant; 

end; 

■  5  :  BEGIN 
WRITELN; 

write( 'Enter  your  constant:  ' );REAOLN(konstant); 

FOR  X  :•  1  TO  mata'.ROWSIZE  00 
FOR  Y  :*  1  TO  mata'.COlSIZE  00 
mata*.NATRlx[X,Y]  :•  mata'.MATRIX[X,Y]  /  konstant; 

end; 

END; 

view(mata,0); 

ENO; 
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PROCEDURE  TVOHATS(VAR  HATA, HATS: INFOptr) ; 
BEGIN 
writeln; 

WRITE ('FIRST  NAT: 

R£aoln(nata*.nahE); 

REAOIN(NATA); 

if  not  exist(mata*.name)  then  exit; 
writeln; 

WRITE;1 SECOND: 1 ) ; 

READ;.  n ( HATS" . NANE ) ; 
heacin;ha’-3); 

EnD; 


procedure  iogit(var  mata:infoptr); 
var  x,y  integer; 

begin 

for  x:  =  1  to  mata*.ro«size  do 
for  y:  =  1  to  mata*. col  size  do 
mata*.matri x[x,y]:*ln(mata*.matrix[x,y]); 

end; 


PROCEDURE  lubksb(a:  infoptr;  n,np:  integer;  indx:  intarr;  VAR  b:d0ufclearr 

(*  Programs  „sing  LU9KS8  must  define  the  types 

Tvpe 

g’narray  «  ARRAV  [i..n]  OF  real; 
gM-Cx  «  ARRAV  [i..n]  0r  integer; 
glnppynp  >  ARRAV  [ 1. . np, 1. . np]  OF  real; 
in  the  main  routine  ') 

VAR 

j < i P < i i . i :  integer; 
sur:  real; 

BEGIN 

i  i  :  =  0; 

FOR  i  ;«  1  to  n  00  BEGIN 
ip  :>  indxfi]; 
sum  : ~  b[: p] ; 
fctipj  :*  b[‘0; 

IF  (ii  «  ci  THEN  BEGIN 

FOR  j  :=  ii  to  i-1  00  BEGIN 

sum  :*  suh-a*.matrix[i,j]*b[j] 

ENO 

END  Else  IF  (sun  <>  O.O)  THEN  begin 

i  i  :  =  i 
END; 

b[i]  :=  sun 
END; 

FOR  i  :*  n  00WNT0  1  OC  BEGIN 
sun  :=  b[i]; 

IF  (i  <  n)  Then  BEGIN 

FOR  j  :*  i*l  to  n  00  BEGIN 

sun  :*  sirt-a*.matrix[:, ,j]*b[j] 

END 

END; 

b(i]  :•  sui>/a*.matrix[i,ij 
ENO 
ENO; 


procedure  1nv(mata:infoptr); 

(*  takes  a  matrix  inverse,  see  Press,  et  al,p.3B  *) 
var  colvect  :  doublearr; 

indx  :  intarr; 
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0  :  double; 

H,HP,x,y,2, j  :  integer; 

ten^mat  :  info; 

begin 

N:=  mata*.no»si2e; 

NP:*30; 

for  x  :*  1  to  N  do  begin 
for  y:«  1  to  N  do 

tempmat.matrix[x,y] : =  0; 
tempmat.matrix[x,x]:=l; 
end; 

ludanp;mata,N,NP,  indx.D); 
for  j;=  1  to  n  do  begin 

for  y:-  1  to  np  do  col vect [y] : -tempmat ,matrix[y, j]; 
1 ubksb (mata , N, NP, i ndx, col vect ) ; 
for  y: =  1  to  np  do  tempmat ,matrix[y, j]; =col vect [y]; 
end; 

for  x;=  1  to  N  do 
for  y:=  1  to  N  do 

mata*.r)atrix[x,y]:=temprr,at.ir,atr-,x[x,y3; 

end; 


PROCEDURE 

OETERhAT (NATO; I  Nr 

VAR  X 

: INTEGER; 

U 

:do-bie; 

INC* 

.-JNTARR; 

gooi 

:boolear; 

ma ;  **' 

: infoptr; 

P 

ipointer; 

BEGIN 

mark(p; ; 
ne-(matn) ; 

LUOCnP ;haTG,  hatg" . ROWS IZE.haTG*. ROWS  I ZE , I nOx, C ) ; 
FOR  X  :<  1  TO  NATG'.ROVSIZE  00 
0:»C'«ATG*.NATRIX[X,X]; 
if  autc*l  then  begin 
write’n; 

wri  tel  n;1  Determinant  =  ‘,<1:11:-); 

PAUSE: «REA0kEV; 
end; 

releasefp! ; 


procedure  direct; 

var  tempspec.’f i lename; 

begin 

set«indo*(35, 10, 75,18) ; 

■riteCEnter  tne  Filespec  :  1 ) ; readln(tempspec) ; 

windo»(l, 1, BO, 25) ; 

sho.di'(tempspec); 

end; 


PRCCEOURE  rsm(linsys:integer); 

VAR  SSR, SST, nybarsq,  vary , meany ,  stony , 
logs 
good 
n.k.X.v 
NATO, NATO 
yresid.pred 
xname.yname 


SU«vSQ,RSQ,d,sse,ssy 

:char; 

tboolean; 

; INTEGER; 

; INFOPTR; 

tdOudlearr; 

iworrd; 


:  double 
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menu 


:chaR; 

:pointer; 


P 

BEGIN 
mark(p); 

setwindow(19,  7, 5 C,  26)  ; 

NEw(NATC) ;nEw(haTD) ; 

(*  read  in  and  work  on  the  x  matrix  *) 
wri tel n( ' X  matrix 
CNEHAT (MATA) ; 

RE AG  I N  ( MA i A) ; 

IF  NOT  EXIST (MATA* . NAME )  THEN  begin 
release  Ip); 

EXI*; 

end; 

if  (mata*.rowsize<=mata*. col  size)  then  begin 
»ri te’r; 'Too  fe«  observations  ...'); 
pause: =readkey; 
release;?); 

ex'  t 
end; 

n: =mata* .rp.si  ze; 

.rite;  Natural  logarithms  of  X?  : 
lCGS: -REAGkEV; 
write' n; 

if  {Togs-  ‘y  ‘ )  or  (logs=’V)  then 
logit;mata); 

coPT2;rATa);  ('  add  constant  column  of  ones  *) 

k:  =mata"  .cd  si  ze; 

vi e«(mata, C) ; 

mat?*:  =rr,ata*; 

matd* :  --mat  a* ; 

TRANSPuMAT (MAT3, 2 ) ;  (*  mats  returns  xt  *} 

MuLT(MA*3,MA*A,MA*a,2);  (»  mata*  returns  xtx  ”) 

fN'V;nx*a) ;  (’  mala  returns  xtx  inv  ') 

(♦  no«  read  ;n  and  wflrx  on  the  y  matrix  *) 
w r-  tel n; 

•r:  tel r ; 1 V  mat'ix  ...'); 

0NEma*;ma")  ; 

REaG!N(ma*C); 

IF  NC*  EXIST (maTc* . NA*£ )  Then  beg:n 
release;?); 

EXI*; 

end; 

yname: *naic‘ .name; 

write;  Natural  logarithms  of  v?  :  ' ) ; LOGS : sREAOKEY; 
wr i te'n; 

if  (logs=  y  )  or  (logs*'V)  then  1  ogi t (mate); 
for  x:=  2  to  matc'.rowsize  do 
yresi  d[x] : *matc* .matri x[x, 1 ] ; 

Mji_T  (maT3,  maTC,  MATS,  2 ) ;  ('  matd"  returns  xty 

HS-T(hATA,HATb,HATc,l);  (*  mate  returns  estimated  P's 

view(matc,C); 

(»  find  mear  and  sum  of  sq  of  y  *) 

sumy:=C; 

sumysq: =C; 

for  x:=  1  to  n  do  begin 
SJny:*  siny»yres: d[x] ; 
sjnysq:-sui'ysq*sqr  (yresi  d[x]); 
end; 

meany:-  (suny/n); 

(*  caldulate  the  yhat  vector  ») 

(*  note:  here  resid*  holds  the  x  matrix  *) 

mult(matd, mate, matd, 1);  (*  matd*  re<urns  yhat  *) 

view(matd,0); 

for  x:*  1  to  n  do 

pred[x] : «matd* .matri x[x, 1]; 

(*  calculate  the  residual  vector  ») 
for  x:«  1  to  matd*.rowsize  do 
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yresid[x]:-yresid[xl-pred[x]; 

(*  calculate  n*sqr(y  mean)  *) 
nybarsq:*matd*.rowsi ze*sqr (meany) ; 

(*  calculate  the  s^n  of  residuals  squared  *) 
sse:«0; 

for  x:»  1  to  n  do 

sse:*sse  ♦  sqr(yresid[x]); 

transpomat(matc,l);  ('  transpose  the  beta  hat  vector  *) 
mult(matc,matb,matb, 1); (*  matb  returns  b'x'y  *) 

SSR: *matb*.matrix[i, l]-nybarsq; 

SST : «sumysq-nyba'sq; 
write>;'/3  covariance  matrix  ...'); 
for  x:  =  1  to  mata".ro«si ze  do 
for  y:=  1  to  mata". col  size  do 
mata*.matrix[x.y] : *mata*.matrix[x,y]*(sse/(n-k)); 
windo-d, 1,81, ?5);clrscr; 

uritelnj'  Estimator  Estimate  Std  Error  T  value'); 

V*  f  ) 

wri te’n; 

for  x:  =  1  to  mate". col  size  do  begin 

writelnf  /J ■ , x- 1 ,  ‘  1  ,matc*.matrix[l,x]:ll:5,  ’  ',sqrt(mata'.matrix[x, 

■ ,matc*.matrix[l,x]/sqrt(mata*.matrix[x,x]);ll:5); 


end; 

vr;  te>; 
wr i t  e ’ n ; 1 M 
wri  tel  n ( '  R? 
wri lelnC  nSE 
wri t  e 1 n ; 
wr i t  e 1 r ; 1 
wri te’n{ 1 
wri  tel  r.C’ 
men„: =  re adkey; 
if  upcase(menu)*'?' 
clrscr; 

wri tel n(' Predictions 
wr-  te’n(  ■MHi 
for  x:*  1  to  n  do 


P) 

a) 

m; 


*  ' , n)  ; 

»  ’ ,  SSR/SST: 8: 5)  ; 

-  ',sse/(n-k)5; 

Predictions  and  residua's'); 


Beta  covariance  matrix 
nenu 

then  begin 

Residuals' ); 


'); 
•  %  . 
i  l 


writeln(pred[x]:ll:5, 
PAUSE :*REA3XEV; 


'  ,yresid[x] : 11:5); 


end 

else  i r  upcase;menw) « '8 '  then  begin 
for  x:=  1  to  mata*.ro«size  do  begin 
wr-:  te  1  n; 

for  y: =  1  to  mata". col  size  do 
wri teCmata" .matri x[x,y] : 11:5) ; 


end; 

pause; =readkey; 


end; 

release;?) ; 
end; 


PRSCEOURE  xtransform(l insys; integer); 


VAR  SSR, SST, nybarsq, vary, meany  tdoubie; 

suny , SUHVSQ, RSQ, d, sse, ssy, old  : doub 1 e; 

logs  :char; 

good  : boolean; 

pass,n,k,nunx,X,v  :  INTEGER; 

HATC.MATO  : InEOPTR; 

yresid.pred.yvect  .-doubleam; 

xname.yname  ;worrd; 

menu  :chaR; 

p  jpointer; 


x]):U:5, 
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:bool ean; 
:dOublearr; 


alphasig 
alpha 
BEGIN 
mark(p); 
pass:*!; 

setwindow(!9, 7,50, 16); 

nEw(haTC) ; nEw(maTC) ; 

(»  reap  i r.  and  work  or.  the  x  mat-ix  *) 
wr: tel n( 1 X  matrix  ...'); 

CNEhAT  (MATA) ; 
xnane: =nata* .name; 

RE AC  In (MAT a)  ; 

IE  NO"  EX;ST(hATA*.NArE;  T-<EN  beg;n 
release(b) ; 

Exp¬ 

end; 

if  (mata* . ro-si ze<»mata* . co' s' 2e)  tner  begi" 
-r-te'r;,Toc  fe-  oose-.at'ors  ...'); 
pawse: =readxey; 
release^); 
ex- 1 
end; 

r; *mata" . ro-s'  ze; 
njrx:  *mata* .  c o’  si  2e; 
copy? (mata); 
for  x:  =  :  tc  r,  Co 
a’o“a[*l : =1; 

»r' te'r; 

,ri  te>;  V  rat':  A  ...); 

ONchA'I'A'C); 

REACI*'(hA  w); 

If  NO*  EXIS*(ma*c* .name;  Then  beg-r 
re’ease(p); 
ex;-; 
end; 

yname;*matc'.ra-e; 

for  X: =  I  TC  ma'C'.RSwSIZE  OC 

vvc:*[x];-»a*c‘.ha’r:x>, 

writel'Nat-'a'  logarithms  of  v?  :  1 );..CGS:*REA3kEv; 
-r;  te’r; 

if  (iogs*y  )  or  (logs*'V)  the-,  logit(matc); 

repeat 


ma  t  d  :  =ma t  a 
math" : *mata* 

TRanS3Cnat ;haT0, 1)  ; 

Mp. * (ma*8, maTa, MATa, I ) ; 
INV(MA*A) ; 

(*  no«  work  Or  the  y  mat-ix  ♦) 
NptT(HATB,nA':,hATB,:;; 
HU.T(HATA,MAT8,NA*C,  I); 
wr- 1 e i n ( 'Pass  1  ' .pass) ; 

(»  finfi  mea-  and  sum  of  so  o'  y 
sury:  --C; 


(•  mats  returns  xt  *) 

('  mata*  returns  xtx  ») 


mats* 
-  mate 


returns  xty 


”) 


returns  estimated  P'S  */ 


SdFty  SQ l 

for  x:«  1  to  matC*.rowsi7e  do  begin 
Siiny:«  sumy*matC*. mat-i xfx,  1] ; 
sunysq:  *SiJi>ysq»sor  (mate*  .matrix  [x,  l] ) ; 

end; 

meany:*  (suity/x); 

(*  caldulate  the  yhat  vector  -) 

(*  note:  here  NATO  holds  the  x  matrix  ') 
mul t (NATO, NATO, MATO, 1 ) ; 

(*  calculate  the  residual  vector  ») 
for  x:*  1  to  matO'.rowsize  do 

VreSId[x]:=WECT[X] -mate*. mat-:  x[w,l); 
(*  calculate  n'sqr(y  mean)  ') 

nybar sq:-n»sqr (meany); 
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(*  calculate  the  sum  of  resid-als  squared  *) 
sse:*0; 

for  x:«  1  to  MATO*. resize  do 
sse:-sse  ♦  sqr(VRESI3[x]); 

transpomat(matC, 1);  (*  transpose  the  beta  hat  vector  ») 
mul t (matC, mats, mats, 1); 


SSR : =matS*. matri x[l, l]-nybarsq; 

SST;  =sumysq-nyba'sq; 
for  x:  =  1  to  mata*.ro»si7e  do 
for  y:=  1  to  mala*. col  si ze  do 

mala*.  matrix[x,y]:=mata*. matri  x[x,y]r(sse/(n-numx-  1)); 


(»  no-  create  the  2  values  ’) 

HAT  A* . name : =  XNAMl ; 

REAC I N ( MA'A) ; 
fo-  x:-  1  to  r  do 
for  y:=  (  to  n^arx  do 

mala* .mat'' xlx.y] : *po»er (mat a*. matrix [x.y], alpha[yj); 
fc'  x:=  1  to  mat A* . ro.si ze  da 
for  y:=  1  to  -natA*. coi size  qo 

mat  A*  .mafr  i  x[  -,  y  ♦njmx ]  i  =“3tC*  .matri x[l  ,y*i] rmatA*  .matrix[x,y]'lN(matA  .matrix[x,y]); 
(*  no-  reg'ess  aga:',  f's  time  or  x ] Z  *) 
mata*.co1size:=nurx  »  2; 
copy  2  (mat  a',  ; 


HA'S* : =KATA*; 
k:*matA*. col  Size; 
TRanSRCma*(ma'3,i:; 

(*  malb  returns  xt  ♦) 

HUE’ (MA’S.maTA, matA,  1)  ,’ 

(*  matA  returns  xtx  *) 

I NV  (ma  l  A ) ; 

(*  matA  returns  xtx  ihv  *) 

(♦  no-  -c'/  or  tne  y  matr;x  *) 
mate*. name: =ynare; 
read: '(mate); 
Hu.T;MA’d,TA*C,MA’3,:); 

('  malB*  returns  xly  *) 

MuuT(hA'A, MA'S, MA'C, )); 

(*  mate  returns  estimated  P  s  ') 

(*  note:  on  next  line  matd  «- 

1  ho’ o  the  x  matri x  *) 

mui  tCA*;,  mate,  mats,  1); 

('  caiclulate  the  yhat  vector,  put 

p:r  \  *e  n  zc 

PRE0,Xj : =hA*0  . matr i X l X, 1 , t 
( '  ca'c-iate  the  residual  vector  ») 
fO'  x:-  \  to  h  Co 


VRES.’3[x; :  =vvECT[Xj-pred[x]  ; 

(’  calculate  the  sum  of  residuals  squared  *) 


it  ir  matd  *) 


sse: =2; 

for  xx-  1  to  n  do 

sse:=sse  ♦  sqr(vRES;o;x]',; 

transpomat (mate, 1);  (»  transpose  the  beta  hat  vector  ») 
mu’  t  (mate, mat B, mats,  1 ); 

SSR: -mats*. matrix;:, I’-nybarsq; 


SS*:=Sjrr.ysq-r,ybarsq; 

for  x:=  1  to  mata‘.ro«size  do  ('  modify  xtxmv  to  be  var-cov  mat'ix  ') 
fo'  y.-v  1  to  matA" .  col  si  ze  do 

mat A* ,ma t ri x [/, y] : =matA* .matri x[x, y] ' (sse/(n- (numx’2* 1) ) ) ; 
alphasig: *faise; 

(*  test  to  see  if  any  alphas  are  significant  ») 
for  xt-  1  to  nun/  do 

if  abs(matC* .matri x[l,x«numx<lj )  >  abs(2»sqrt (matA* .main «;x<nwl, x*numx*lj / ,  then  begin 
alpha[x]:«alpha[x]r(matC*.matrix[l,x»numx*lj«l); 
alphasig:*true; 
end; 

ma ta* . name : -xname ;  ( '  recall  the  name  of  the  original  x  matrix  *) 

if  alphasig  then  begin  (*  transformation  for  subsequent  passes  if  any  significant  ') 
readin(mata); 

for  x:*  1  to  mata'.rowsize  do 
for  y: *1  to  mata*.colsize  do 
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mata*.matri  A[x,y’:=pOi.e^;ma:a".matrix[x,y],alpha[y]); 

copy2(mata); 
mate* .  ro»si  ze:  «r.; 
matc*.colsize:=l; 
for  x:>  1  to  n  do 
matc*.matrix[x,l]:-yvect[x]; 

end; 

(*  sho.  betas  and  COV  matrix  if  nothing  significant  on  first  pass  *) 
i r  not(aiphas‘ g)  and  (pass- 1 )  then  beg;n 
wri te’.r.j 'pass  *  '.pass); 
for  x : = I  to  numx*2*l  do 

-ri  te1 "(mate* .mate i x[l ,  x] :  11;  5,  1  ' , sqrt (matA*.matrix[x,x]) : 11:5 

pa-se: -readxey; 
end; 

pass:=pass*l; 

L.r\-'  notU'Snasig); 

*.indo«;i,l,SC,25;;c>scr; 
xri tei r  ( '  Estimator  Estimate  '); 

r  ( ' 
writein; 

for  x:  =  1  to  njr^  do 

«r-,te'n('  a  '  ,alpha[x] : 11:5) ; 

te’n; 

«r‘te>.;  Pe-'c-m  the  transformations?  : ' );pause: -readkey; 

»r; te’n; 

if  (pa-se-’y  )  or  (pause* 'v  )  the”  begin 
mata*.r.ame:*xna*>e;  (*  recall  the  name  of  the  Original  x  matrix 

read' n (mata) ; 

-rite’n;  Name  for  transformed  matrix  :  ');readin;mata*.name',; 
fc-  x:--  ;  tc  mata'.rc.S'ze  do 
fo*  y:--l  tc  mata*.  col  size  pc 

mata*.mat''x[x,y]:*pc«er;nata*.matrix[x,y],alpha'y];; 
save (mat a , 1 1 ; 
e-d; 

reiease(o); 


PRCCEOoxc  datame-w; 
va' 

Gu,  gc2:  c^ar  ; 

--ch,:enp:ir.teger; 
beg-  - 

«c*-:--3; 

»er/.  ’eft[-ccr‘;*18; 

mer, .max;-’ cr] : -7; 

mer„* .  top;-',  cn] :  -6; 

men.*. text[l, -ich]:* ’Enter  ’ ; 

menu*. text[2,»ich]:= 'vie- 

menu*. text [3, wicn] :»' Import  ASCII  '; 

menu*. text[e,wich]:  = 'write  ASCII 

menu*. text [5,wich]:«  Disk  C'r 

menu*. text [6,wich]:=  List  ha*  f-les'; 

menu*.texti7,«ichj:v  Mod'fy 

menu*. text [0. wi ch] Backup 

menu*.text[menu*.max[uich]*l,uich]:*'  CATA  MENU 

go : -menu* . tex t [1 , »i ch] [ 1 ] ; 

G02: -menu*. text [l,«icr]'l]; 
temp: *1; 
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whIlE  upcase(GC)  <>  B  '  DC  BEGIN 
window(l,l, 80,25;; 
menucontrol  (*i  cl".,  gc,  go2,  temp', ; 

GO:*UPCASE(GC); 

CASE  GO  OF 

’£ ' :REEDKEV; 

’V  : BEGIN 

SCt«i ndo»(35, 10,75,19); 
one^at (mats) ; 

READ \ N (ha • A) ; 

If  ex:ST(HATA-.NA«E)THEM 
VIEWDATA, C); 

£K; 

' I ■ i RE aGaSC 1 1 : 

‘  W  ‘.WRIT ASCI  I ; 

,l,:ShCw::R(-*.haT); 

*C  :£*•  reel] 

'  h  ■  BE  G I  ^ 

sel.4nCo«£35, 10, 75.18); 
oner, at  (ra  ca ) ; 
REaOINC^a); 

If  EX2ST<>*ata\nakE)  then 
ChanGc.  ; 


enc; 

e^d; 

r,  *  . 
t"*w  , 


PRCCc  C  J*c. 

wo rKPen^; 

var 

GG , qc? 

:cnan; 

+ '■  ,  t 

e"p: ;ntege'i 

S  -g 

:boo’ean; 

ind* 

:  InTaSR; 

C 

:  dOub'e; 

good 

.-pool  ear; 

BEGIN 


wi  Cl".:  =  2; 

me^u".ie'’:[-'cr]:»l8; 

menu*.max[»ici".]:*7; 
m*nu" .  top'*',  cp ] :  =6; 
meru*.text[l,wicP]:=  Add 

men*" .  text  [?,•'  cr] :  *  SuPfact  \ 

menu" . text [3, «'CP] ' Multi  ply 

menu"  .  text  [A,  *i  Cl".] :  =  '  Invent  '  ■ 

menu* . text [5, wi cp] : « 'Transpose 

menu' . text [6, *i cp ] : -  CPange  Matrix  , 
menu* .  text  [  7 ,  wi  CP] :  * '  Determ-,  rant  • : 
menu* . text [0, wi CP] Backup  , 

menu* . text [menu* ,max[«i  ch]*l ,  wi  cp]  :  * ' 

(«***»•* ******  - ********************** J 

go: *menu* . text  (, 1, wi cP ] [ I ] ; 

G02:  "menu*. text [1,  wi  rP] [ij; 

tern>:*l; 

WHILE  upease(GO)  <>  'B'  00  BEGIN 
windOwU.  ’,80,25); 
menucontrol  (wicn, go, go?, temp) : 


matrix  menu 


GO: -UPCaSE (GO] ; 

( #****♦ ++•+**+* 

CASE  GO  cr 
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A' :9EGIN 

S£TVInD0w(35, 9, 79, IB I; 
tvohats(hata,ha;b); 

IF  EXIST(NATa*.NAHE)  ANC  EX!ST(HATB*.NArE)  THEN 
aDOhaT(hata,ha'b,;); 

END: 

'S’:  BEGIN 

SETVIND0w(35, 9, 79, 18) ; 

tvohats(mata, hatq) ; 

IF  EXIST (BAT A*. NAME 5  AND  EXIST (MATB* . NAHE )  THEN 
aD3«aT(hata,haT8. -1); 

END; 

'  H ' :  BEGIN 

SETWINC0v(3$,9,73,18): 

tvoha’s;hata,hatb;: 

IF  EX .  T (HATA* . NAME )  AND  EXIST (HATB'.NAUfc)  THEN 
«DLT(BATA,BATB,«AT6.aj, 

END: 

' I ’ :9EuIN 

SE WINDOW (15, 9, 79,18); 
one~a*.  (mala) ; 
read:n;hata); 

IF  EX  I  ST (HATA". NAME )  THEN  begin 

Inv;hata); 

write;  NAME  THE  INVERSE:  ' ) ; REAOLN(nATa" . name ) ; 
v:Ew(MA’a,35; 
end; 

END; 

‘ T ' : BEGIN 

SETv:nDOw;35,9,79,:B5; 
onema: (nata); 

REaSIn(ha'a) ; 

IF  EXIST(hata'.nahE)  then 
tranSPCNat (hata, 0)  ; 

eng; 

’C  .‘BEGIN 

SE’VINGCW(35,9,79,18;; 

onenat(mata); 

READ  In (haTa) ; 

IF  EXIST (haTa*  ,nap*E)  Then 
hanI °haT (HATA) ; 

end; 

'D':BEGIN 

SETWIn00w(35,  9,  79,18); 
onema t (mala) ; 

REaCIn(haTa); 

IF  EXIST(NATA*.NA(1c)  THEN 
deterbaT(ba:a,:;; 

end; 

END;  (»  END  OF  CASE  ANC  ElSE') 

*+*++•+*'+*+ ++*+**+*+******) 

end;  (*  wh I d E  LOOP  END  *) 

END;  (»  PROCEDURE  End  ') 


PROCEOURE  mainHENU; 
van 

G0,go2:char; 

wIch.tBTJiintege'; 

begin 

wi  ch:  *1; 

menu* . left [wi cn] : *1; 
menu' .max [wi  cn J :  *4; 
menu‘.top[wicn]:-3; 
menu* . text[l,wich]:*  Oat a 
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menu*. text [?. »i  cm]  :  * '  Maf:.  a  cds 
menu*.  text [3, *i cm] :  *  'Reg-ess1  or.  ' ; 
menu*. text [4, wi CM] :  = '  x  tnans'o-m 
menu*,  text  [3,  »i cBl :  = ' 3- ■  t ' ; 

menu*. text [menu*. rcax[»; on].;, .icBl ’  main  mEnl 

go:  'menu*,  text  [1,  »i  cn  Vl  ]; 

GC2: *menu*. text (1, »i cm] [1] ; 
terD: =1; 

wul.E  uDcase!3C;  <>  'C  CC  BEGIN 
*■ ndo« ;; , 1, 3C, 25) ; 
me'-cctrc ’  (•'  cn,  g;,  go2,  terns) ; 

GC : =GPlASc I GC I : 

; . . . ') 

CASt  uu  Cf 


'  G  :  CA*AME',V; 

■ m 1  :  wCRn'En.,; 

■a  :  rs-;:;; 

'X'  :  xt-a-s'onr IGI ; 

ENG;  C*  ENC  CP  CASE  AnC  ElS:*) 

(*"****”’**' . . . * . ) 

end;  (*  w^I.E  ..CG*  .nG  *) 

ENG;  (♦  pRGCGGuRG  EnG  ", 


C  main  prcgra—; 

BEGIN 

ne- (■natal  ;ne« (mats’, ; 

I ,NV; =u. UUUV^. , 

c>sc*; 

textDacxg'Su-s;;’ -el ; 

.r-te(  MATRIX  --  By  Dave  Sumner 

gotcxy (1 , 25) ; te ( 1 
TcX^BACNGnCuN^ I ; 

MAlNMt-.u; 

E  nG  . 
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urv.  t  davestatj 


£  ***************************  ********************************************* 
This  unit  contains  many  of  the  statistical  procedures  called  in  the 
probstat  program.  Some  of  them  are  original,  and  others  are  taken  from 
Numerical  Recipes  or  Turbo  Pascal  Programmer's  Library. 

*««*««*«*i>«****«*«»******«r »*»»***«<****»»*»*««*•«««*« »»r*»»*»rr»mr»»r»r> 


INTERFACE 

uses  crt.oavenenu; 


Tvpe 


vect  *  array[c. 

cT 

CM 

ar  integer; 

largevect  *  array[l. 

y  n  " 
.  iuu 

| of  double; 

doubvect  *  array [0. 

.10] 

of  doub’e; 

txenvect  «  array[G. 

•20] 

of  double; 

charvect  «  array^l. 

.20] 

of  char; 

threeDyt«er-  ar-ay[l. 

.3,  C. 

.  .20]  of  do. 

fOurpyt»en  *  array ]1 . .A, 0. . 20]of  double; 
tensq  «  array [I. . 10, 1. . 1C]  of  double; 

t»ensq  -  array[l. .20, 1. .20]  of  double; 


t«encube  =  arrayf] 

..20, I. .10.1. 

.10] 

of  doubie; 

fOunt«ensq  =  array[0. .20,0. .20, 1. 

•  “] 

of  double; 

syste^^ec  *  record 

(* 

Hoi  os  the  system  cost  definitions 

*) 

vars 

threebyt«en; 

r 

Single  van  type,hi,lo» 

*) 

varst -"C 

fOurbyt-en; 

c 

Single  var  nocost.PI, CON, PC  lengths 

') 

ce’-va's 

fou-t»ersq; 

(* 

Cer  explanato'y  var  type, hi , low, alpha 

centime 

fOurbytuen; 

(*• 

Cer  nocost, PI, CON, PC  lengths 

*) 

ceroetas 

twensq; 

c 

Cer  peta  estimates 

*) 

certypes 

charvect; 

(* 

Ce-  type 

') 

cerrse 

tuenvect; 

(' 

Cer  USE 

*) 

cerccvs 

tuencube; 

t' 

Cer  cov  matrices  (cnolesky  sqrt) 

*) 

rate 

double; 

c* 

Associated  interert  rate  for  Pv 

♦) 

e"d; 

syspt'  =  'systemrec; 
axisannsize  *  s.r.ngl30]; 

ANNARRAvtvse  =  ARRAV  [0. .21 ]  OP  AXISANNSIZE; 

filename  *  STRInG[12] ; 

WORRG  *  STRI Nu i 8 j ; 
infomatpt'  *  “info; 

INFGmat  •  RECORG 


MATRIX 

tensq; 

R0WSIZE 

I NTEGE R 

cols: ze 

integer 

NAME 

E  NO; 

WORR3; 

CA . ARA i 

=  ARRAV  [ 

...2500] 

INFO 

•  RECORG 

Gat  a 

OATaRAV 

SIZE 

INTEGER 

ENG; 

NA"F 

WORRG; 

infoptr 

«  *info; 

CONST 
XORM; 

VOR 1*12; 
var 
Fit 

sysname, setname 
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:FIlE  OF  INFO; 
:W0RR3; 


HATi,MAT2,mat3 

pause 

sys 

seed 


:  I NF  Or, a  *  ; 

:char; 

:sysptr; 

: integer; 


x,y,z, count, glixl.g’ ix2,gi;*3, seedl,seeC2:  integer; 

glr  :  ARRAY  [1..97]  OF  double; 

gl inext, gl i nextp  :  integer; 

glr, a  :  array  [1..55]  OF  double; 

Fu'nOT'On  rgnO (vaR  idun:  integer):  dojble;  (*  from  numerical  recipes  ') 
PROCEOuRE  heanvaR(SETG:1NF3;var  MEAN, variance: double);  (*  orig-na!  ') 
PRCCiOuR:  JaCR(Si'u:  ;  NFC; vaR  ZME an, ZVAR : doubl e);  { *  pr  i  gi na  * ) 
FonC'ICn  ga-r'n(*x:  double):  double; 

FunC'ICn  beta- (a,b,x:  double):  double; 

function  t val ue (tst at: doubl e;df : integer): double; 

function  rva’ ue (f stat : dOubl e;dfl,df 2: integer): double; 

FuNu  ’On  c X i S ■ ( t emp : WGRRu )  :  BCOlcAN; 


FjnC'ICn  Ex!S'2(t 

e^p: 

fi  - ena^e )  : 

PROCEDURE 

SAVE (SE 

NrC); 

PRCCE  OuRc 

RtAC  a 

VAR 

Sc  o.*  I , 

PROCEOuRE 

rucsrs 

(VAR 

SETa,SET8 

PRCCEOJRE 

KUuTrr,at 

j 

PROCEOuRE 

RE  Au»A$C 

II; 

PROCEOuRE 

WRTASC 

II; 

PROCEOuRE 

REE3KEV 

; 

PROCEOuRE 

PRCCEOuR:. 

SEE; 

PROCEOuRE 

SORTuR 

(VAR 

Sc 1 G 1 1 N-  0 

PROCEOuRE 

HV"  '  i- 

ES; 

PROCEOuRE 

prosab: 

_  I  *  V 

; 

SOOucA.n  ; 


I  NFC 


FuNC'iON  ran3(VAR  idur:  integer):  double;  (»  from  numerical  recipes  *) 


Th; s  procedure  -as  taken  from  Numerical  recipes.  It  generates  uniform(C,l) 
va-: ab' es. 


(r  Prog'ams  uS’-g  Ran3  must  declare  the  follo-ing  variables 
in  the  na-n  "Outine.  Machines  with  A-byte  integers  can  use  the  intege- 
impleme-taf  0"  of  this  routine,  substituting  glma  of  type  intege1',  the 
conre-ted  CONS'  and  VAR  declarations,  and  the  MOO  function  in  the  third 
line  a'ie*  t"e  BEGIN.  *) 

(*  CONS' 

mb  i g= ,0000-uuuu; 
mseed=I613033S8; 
m?  ’  0 ; 

f ac=l . 3e  9; 

VAR 

i ,  i  i , k,mj  ,mm:  integer;  ») 

CONST 

mbig-A.0e6; 

mseed*161BC33.0; 

my-O.O; 

fic-2.Se- 7;  (*  1/rnb- g  ») 

VAR 

i,1i,k:  integer; 
mj,mk:  double; 

BEGIN 

If  (idum  <  C)  then  BEGIN 
mj  :*  mseedridur; 
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(*  The  follo.ing  IP  block  is  mj  :=  mj  MCD  mpig;  for  real  variables.  *) 
IF  it\j >*0.0  THEN  me  mj -mbi  g*tr„nc  (mj  /mb’,  g) 

ELSE  mj  :=  mbig-a0s(mj).mb;g’lruncCabsCmj)/m2;g); 
glma[55]  :*  mj; 
mk  1; 

FOR  i  :*  1  to  50  DC  8c.G,n 
ii  :*  21*i  HOC  55; 
glmaTii]  :«  mk; 
mk  : =  mj - nk ; 

IP  (mx  <  raz)  ThEn  mk  :=  mk«mt)ig; 
mj  :=  glmaj'-] 

END; 

FDR  k  ;=  1  to  0  DC  BEGIN 
FCR  i  : =  1  to  55  DC  BEGIN 

g  "3 .  j  i =  g i ma ^ i j * g ■ ma hCu  55  y  j , 

IP  Cglma[ij  <  my)  then  g’ma[;]  :=  glma[i ]»mbig 
END 
END; 

g'  me,;  :  =  C; 
gl'rextb  :*  31; 
ib-~  :=  1 
END; 

g’inext  :■  g’inext*:; 

IF  (gi*ne*t  =  56;  Then  glinext  :=  1; 
g' 'rente  :=  g’inexto-l; 

IF  (g'inextp  *  56',  then  giinextb  ; ■  1; 

Tg  *  Q  X&  ^  5  '  '  *  J  ”  9  u  5  7  ^6a  t?  J  J 

IF  (mj  <  mz;  Then  mj  :*  mj-mbig; 
glmalg'iiextj  :*  mj; 
ra-3  mj*fac; 


FRCCtiDvR-.  H:  ANVAR  ;se  ■  G ;  I nf  c ; vaR  he  an.  VARIANC&;  Ooub 1  e  J ; 


(»  original 


’) 


This  p*o:ec-'e  "s  all  original.  It  calculates  the  mean  and  variance  of 
a  cata  set  -s'rg  r.-i  «eig-t‘rg. 


VAR  Sv", S."SC; bc-c’ e; 

A ;  I N"E GE R ; 

BEGIN 

I-  SETG.SIZE<=2  Then  EXIT; 

SDHSC  :=C; 

Sen  :  =C; 

FOR  X  ;=  1  TC  SETG.SIZE  CC 
BEGIN 

SuhSJ  :=  SUHSC  •  SQR(SE*G.DATA[X]); 
Su"  ;=  Sen  ♦  St'G. Da  alXj; 

END; 

HEAN  ;=  SUH/X; 

VARIANCE  ;  =  (SJHSC  x*SQR (mean ; ; / ( x - 1 ; ; 


RRCCEDcRE  JACK(SETG: I  NFC; VAR  Zhean, ZvaR : douS 1 e ) ;  (»  original  *) 


This  procedure  calcuaites  the  "jackr.ife"  estimate  of  the  sample  variance. 

The  standard  error  o'  tr-s  estimate  allots  a  confidence  interval  (symmetric) 
to  be  dra*n  on  the  sample  variance. 


VAR  PSUEOOJ  :0ATARAV; 

SU«Z, SunZSC, SDH, SuhSQ, "Ean, HE anj, VARIANCE  ; double; 
X,v,r  : INTEGER; 
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£**ft«*********ft**********»**************»tt***** ***** ************ ********* 

In  calculating  the  pseudcvalues  ana  2  values,  it  is  necessary  to  sum 
the  entire  sample  set  and  their  squares  r,  times,  each  time  leaving  out 
the  i'th  value.  This  procedure  gets  around  that,  first  the  entire  set 
and  their  squares  are  sunned.  Then,  the  first  value  is  subracted  from  the 
sun,  and  its  square  from  the  sum  of  squares,  and  the  appropriate  psuedovalue 
and  2  value  are  generated.  Then  the  value  is  added  bac*  in  and  the  next 
value  is  subtracted  out. 


*p  ********  ********************************************************* ^ 


8E  G ,  N 

If  SETG.SIZE<=2  Then  EXIT; 
MEANVAR (SETS, BEAN, VARIANCE)  ; 


n 

'SETG.SIZE; 

SunZ 

*C; 

SunZSC 

--C; 

Su« 

=  0; 

Su«S0 

=0; 

FOR  X  : 

1  TO  SETG.SIZE  00 

BEGIN 

suns; 

SUnSC  .  S0R;SETG.OATa[X]); 

Sun 

r  »■*' . 

;=  Sun  *  SETG. CaTa [x] ; 

t  ”u, 

FOR  V ; = 

1  TO  SETG.SIZE  CC 

BEGIN 

Su« 

: =Sun- SETG. 0ATa[ V ] ; 

SunSC 

:=Suhso-SORCSETG.CaTa[v]); 

fit 

:=  Su«/(h-l); 

EM 


ps-ecc;  [y]:-  (SunSQ  -  (N-l)»SQfi(meanJ))/(n-2); 

^] ; s  h*( VAR , ANu t ) -  (h-l)*psuedou  T v j ; 
SunZ  :*SunZ*PSvEDOu[V]; 

SurZSQ  :.SdnZSq*SQa(PSUEDOu[V]); 

Su*  : *Sun*S£TG.DATArv]; 

SdhSC  :  *S'JHSQ«S?R(SETG.CATa[V]  ); 

ENG; 

ZmEan  :=$ U«Z/v; 

ZVAR  :  ■  ($U«ZSQ-  (h*S3R(ZhEA?,)5)/(h-l); 


Function  gamin (xx:  double);  double; 

{****** ******•*************************************».***** **************** 
This  is  an  incomplete  gamma  function  pulled  from  Numerical  Recipes.  It  is 
osed  to  find  T  values  and  F  values. 

ft«***##*****,»»»»*»»**,****f-***»*»,******»***«*«****ft****«*ft*«*ft**ft****ft) 

CONST 

stp  «  2.5C662827465; 
half  *  C.5; 
one  »  1.0; 
fpf  *  5.5; 

VAR 

x, imp, sen;  double; 
j:  integer; 

cof :  aRRav  [1..6]  OF  double; 

BEGIN 

cof[l]  :•  76. 18009173; 

Cdf[2]  :•  -86.50532033; 
cof[3]  ;•  24.01409822; 
cof [4]  :■  -1.231739516; 
cof [5]  :•  0. 12095B003e- 2; 
cof [6]  :*  -0.5363B2e-5; 
x  :•  xx-one; 
tmp  ;•  x*fpf; 

tmp  ;*  (x*half)*ln(tmp)-tmp; 
ser  :■  one; 

FOR  j  1  to  6  00  BEGIN 
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x  :*  x«one; 
ser  :•  ser*cof[j]/x 
END; 

gamnln  :•  (tnp*1n(stp*ser)) 

END; 

FUNCTION  betacf(a,b,x:  double):  double; 
LABEL  1; 

CONST 

itmax=lC0; 

eps=3.0e-7; 

VAR 


tem,qap,qar,qab,er,d:  double; 
br,bpp,bp,bm,az,app:  double; 
am,ao’d,ap:  dOub’e; 


m: 

nteger; 

BEGIN 

ax 

•-  1.0; 

bx 

--  1.0; 

az 

*  1.0; 

qab 

:=  aO; 

qas 

:=  #♦!. 

qax 

:=  a  1. 

bz 

’  l.C-q 

FOR 

x  :=  1 

to  itmax  00  BEGIN 


e~  :  =  m; 
ter  :•  em*em; 

d  :  =  em»Ib-m)'x/((qam«tem)*(a.tem)); 
ap  :■  az»d'am; 
bp  :=  bz-d'bm; 

d  :=  -  (a»em)»(qad»em)*x/((a*tem;r[qap*tem)); 

ap?  :=  ap-d'az; 

bpp  :  =  bp-d'b?; 

ao’d  :=  az; 

am  :«  ap/bpp; 

bm  :*  bp /bpp; 

a 7  :*  app/bpp; 

bz  :=  1.0; 

IF  UaPstaz-aold))  <  (eps’abslaz)))  then  GOTO  1 
END; 

writeln{'pajse  in  BETAC" 1 ) ; 

»riteln('a  or  b  too  pig,  or  itmax  too  small');  readln; 
1:  betacf  :*  az 

ENO; 


Function  beta: (a,b,x:  double):  double; 

[9.9999999999  9999  999999999999999999999999  999999999999.999999999999999999999 

This  is  an  incomplete  beta  function  used  to  generate  t  and  2  values.  See 
Numerical  Recipes. 

99.9  999  99999999999999999.999.99.99.9999  9999.999999999999.99.999.99999.999999999999^ 

VAR 

fct:  double; 

BEGIN 

IF  ((x  <  0.0)  OR  (x  >  1.0))  Then  BEGIN 

uriteir,; 'pause  in  routine  BETAI);  read’n 
END; 

IF  ((x  •  0.0)  OR  (x  =  1.0))  Then  bt  :*  0.0 
ELSE  bt  :*  exp(ganr'ln(a*b)-gantnln(a)-ga'tm!n(b) 

♦a*ln(x)*b'ln(i.O-x)); 

IF  (x  «  ((a*1.0)/(a«b«2.0)))  THEN 
betai  :•  bt*betacf(a,b,x)/a 
ELSE  betai  :•  1.0-bt»betacf(b,a,1.0-x)/b 
END; 


function  tvalue(tstat:doubl e; df: integer ) :doubl e; 

( 9999999999999999 . 9 ,9 99 .99.99.99 9 9999 9999999999 .999.99999999 

This  is  original,  using  a  formula  developed  in  Nianerical  Recipes. 
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note:  this  returns  the  p  value  of  t  statistic  ar.fi  fif,  for  one 
tailed  test. 

ft********* A***************  ********  *********  *9*  T.+.9*.******  *  *9  **■ 

begin 

tvalue:*betai  (df/2,l/2,fif /(df  ♦tstat'tstat))/?; 
end; 


function  f va’ue(f st at: double; df I, df 2: integer) :double; 

This  returns  the  p  value  for  fstat  and  the  t«c  degrees  of  freedom. 


•****♦»***»**> 


beg;n 

fva!ue:=beta; Cdf2/2. dfl /2, fif 2 / C fif2 * fif 1 *f st a t ) ) ; 


erfi; 


FUNCTION  Ex:ST(temp:WOW35  :  BOOLEAN; 

(*  tn;s  checks  to  se  if  the  given  ".set"  file  is  on  the  disk  ») 
van 

Ok  :SCuuc An ; 

T£«=?  : ' IlEnanE ; 

GO  :CnAS; 

begin 

TEhP3:=CC'.CA'rCh=,  .  SE  *  J  ; 

ASS:3N('i  I . TE«*=3; ; 

{ s :  -  > 

RESET(r ; ^5 ; 

is:-} 

0K:=:0P£Suu*  *  0; 

if  no*  ok  then 

EXIST  ;=  FA..SE 

Euse 

BEGIN 

close 

EX  I  S' : =TRuE ; 

E  NO ; 

EMC; 


Function  EX!ST2(tmp:,iienawe;  :  BOC.Ean; 

(*  this  checks  to  see  f  the  file  name  passed  in  is  on  the  disk  *) 
VAP  F I L  :  F  I L  E ; 

OK  : BCu. c  an ; 

TErPP  : F : L  E  NAME ; 

GO : 0  hAh ; 

BEGIN 

TEhPP: =TEhP; 

ASSIGN(fil.TEMPP); 

{SI-} 

SESET(FIL); 

{SI*} 

OK:*IORESULT  .  0; 

IF  NOT  ok  then 
EXIST?  :■  FALSE 
ELSE 
BEGIN 

CLOSE JP It); 

EXIST2: =TRuE; 
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End; 

END; 


PROCEDURE  SAVE (SET g : INFO) ; 

(*  this  procedure  writes  the  data  set  to  a  '.set*  disk  file  *) 
VAR  over  :CHAR; 

TEMP  :FIlENAME; 

lade'  ID; 

BEGIN 

ID:  TEMP; =:onCAT;SETG. NAME, '.SET'); 

IF  EXIST (SETS. NAME)  Then 
BEGIN 

wfilTEC'File  Exists,  Overwrite?:  '); 

OViR: =  RE  AOkc. ' ; 

»ri te’ r; 

END 

else 

C  VE  R :  = '  v ' ; 

IF  JPCASE COVER)  «  ‘V  Then 
BEGIN 

ASSIGN ;F It , TEMP) ; 

REWRITE  r 1 1 ) ; 

WRI" (FlL.SE'g); 

ClDSE  JFIL ); 

END 

Et.SE  beg;- 

wRI’EI  f<e-  name  J”q  to  Quit): 
readln(setg.r.ame); 

if  (se:g.iar,e=  q ' )  or  ;setg.name='Q')  ther,  exit; 
setnane:  «setg.r,ane; 
goto  ID; 
end; 

END; 


PRDCEDoRE  READInJVAR  SETG: INFO); 

(*  this  procedure  reads  a  ".set"  file  from  disk  into  the  SETG  variable  *) 
VaR  PAUSE  :ChAR; 

TE«P  .-FILENAME; 

TEMPNAME  :wORRD; 

BEGIN 
wri tel n; 

WRITE! 'Data  file  name?  C'.SETname, '):  ' );REAOln(TEmpnamE); 

IF  tEmpnamf  "  t,t  . 

SETnamE:=TEmpnamE; 

SETG. name : ^SETname; 
if  exist(setg.name)  then  begin 
TEMP:  <OnCAT;sETG.  NAME,  '.SET); 

ASSI GN(F It, TEMP) ; 

RESET (F II ) ; 

READ(FH,SETG); 

CLDSE;fil); 

end 

else  BEGIN 
wri tel n; 

writeC'Oata  file  does  not  exist 
PAUSE :*REAOKEV; 

ENO; 

END; 


(►  original  *) 

PROCEDURE  TVOSETSCVAR  SETa.SETB: InFO); 

(*  this  orovideds  the  prompts  for  reading  two  '.set1  data  files  from  disk  *) 
BEGIN 

setwindo«(36, ID,  78, IB); 
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wri teln; 

WRITEln( 'FIRST  SET:  ■); 
wri tel n( ' «***«*««» ' ) ; 
REAOIN(SETA) ; 
wri teln; 
writeln; 

WRITElnC SECOND  SET:'); 
wri  tel  n  ('***»*»**"')  ; 
REACINCSETB); 
wri teln; 

END; 


PRCCECURE  hu.Tmat; 

(*  this  procea-'e  multiples  matrices,  it  is  used  by  the  multinormal  *) 

(*  variate  generator,  which  is  used  to  sample  dependent  p  parameters  *) 

(*«»»♦  note  that  it  uses  the  matrices  that  are  global  variables  to  avoid  *) 
passing  parameters  anc  Tilling  up  the  stack.  *) 

VAR  x,v,z  :IN’EGER; 

Su*  :double; 

BEGIN 

rAT3.ROws:ZE:*HAT2.ROwS;ZE; 

ha’3.C0.,SIZE:=iiaT?.C0.S;ZE; 

POR  X  :=  1  TO  "AT). rows :ze  CO 
PCR  v  :=  l  TO  mat 2.CCLSIZE  CO  BEGIN 
Suh: =0; 

ECR  Z  :=  l  TO  HATi. cot SIZE  CO 
SU“  :=  SUM  -  HAT:.HATR;xrx,Z]*HAT2.HATRIX[Z,V]; 
haT3.haTRIX[X,v]:.SuH; 

EnC; 

end; 

PRCCcCuR-  SEACASC; I; 

(*  this  reads  a  sing’e  co'unr.  ascii  Tile  and  stores  data  ir,  a  ".set"  Tile  ' 
type 

PVl  --  TEX’; 

VAR 

X,V,Z  : INTEGER; 

Pit  :  P  v  ; 

GO.NAhE  :WCRR3; 

SETG  : INPOptr; 

p  : PC' n* er ; 

BEGIN 

mark(p); 

ne»(setg); 

set«indo«(36, 10,78,18); 

WRITE  In; 

WRITE ('What  ASCII  Tile?  :  ');REA0Cn(nahE); 
wr: teln; 

IP  NOT  EXIST2CMAHE)  Then  BEGIN 
wRITECCata  Tile  does  net  exist  ...'); 

PAUSE  :--REACkEV; 
wr' teln; 

EXIT; 

ENO 

ELSE  BEGIN  (»  iT  the  ascii  Tile  exists  *) 

ASSIGnJP II, NAME) ; 

RESET(PIL); 
setg*.SIZE  :■  0; 

WHILE  NOT  EOP(FIl)  00  BEGIN 

setg*.SIZE:*setg* . S I ZE *  1 ;  (»  increment  number  oT  data  points  ') 
REAOLN(Flu,setg'.OATA[setg* .SIZE ] ) ; 

ENO; 

close (f il) ; 

WRITE! 'New  Ti le  name?  :  ' );REACLN(setg* . nahE) ; 

SAVE(setg‘);  (♦  save  the  data  to  a  disk  Tile  oT  ".set"  type  ♦) 

ENC; 
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windo*;i, 1,80,25); 
release(p); 

END; 


PROCEDURE  WRITASCII; 

(*  this  writes  a  data  ".set"  file  to  a  single  col  turn  ascii  file  *) 
TVPE 

PVL  =  TEXT; 

VAR 


X,  Y,  2 

•  \  N’TEGc^,* 

e;l 

:FYk; 

GO 

: WORRO; 

nane 

: f i 1 ename 

SETG 

linfopt’-; 

P 

T  ft. 

:  poster; 

mark'?) ; 
ne»(setg; ; 

set.irdo.;36,I0,78,18); 

REAOlNfseij-); 

IE  NCT  EX'.ST(setg*.NAhE)  THEN  EXIT; 

WRITE ( 1  Name  of  ne«  file  :  ' );REAO.N(NAHE ) ; 
wri  tel n; 

ASSIGN^?, na»E); 

REWRITE (Fi „); 

for  x:=  1  to  setg'. SIZE  do 
WP:T£ln(p:l, setgf .CAfA[x]:l2:5); 

CLOSE  C r  1  l ) ; 
windo-::,l,0O,255; 

release;?); 

EnC  ; 


PROCEDURE  REEOxEV; 

(*  this  procedure  allow  the  user  to  enter  data  from  the  keyboard  *) 

(*  into  a  .set  file  *) 

VAR 

code, QUIT, x.v.fylE  :  INTEGER; 

OVER  :  char; 

TEHPnahe  ;  WORRO; 

temp  :  stringlS; 

tem?2  :  double; 

setg  :  infoptr; 

p  :  pointer; 

label  10; 

BEGIN 

mark(p); 

new(setg); 

setwindo.(36,10,78,18); 
write’n;  ' 

WRITE;  Name  your  data  ( ' , SETNANE, ’ )  :  ‘ );READIN(TEhPNAkE); 

IF  TEhPNArE  <>  ‘ ’  then  (*  if  a  name  was  entered  use  it  ,  other.ise  use  the  default  name  * 
SETname : »TEhpnahe ; 
setg*. name: -SETNAhE; 

IF  EXIST(setg'.name)  then  begin 
writeln; 

WRITECFile  Exists,  Ove'wri t e ? :  ); 

OVER  :«  REAOKEY; 
writeln; 
end 
ELSE 

OVER: *’ V  ’ ; 

ie  upcase;over)-'y'  then 
BEGIN 

wri teln; 
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WRITE; 'Enter  "a"  when  done.'); 

QUIT : -0; 

X:-0; 

WHILE  QUIT-0  CC 
BEGIN 
X: *X*1; 

10:WRITEln; 

WRITECEnter  ElEhEnT  ['.X,']:  ' );REACIN(TEhP); 

(*  reading  a  character  variable  and  converting  to  a  real  number  ») 
(»  keeos  the  prog’-ar.  from  bombing  if  a  data  entry  error  is  made  ’) 
vai  ;”hp,T£NP2,code); 
if  codec  then  beg;n 

;»  if  the  text  -as  successfully  converted  to  a  number  *} 

set;'.0ATA[x]:*Tf«P2; 

setg*.SIZE:«X; 

ENC 

else  if  upcase(temp[I])*'Q'then  qui t : =1 

(•  -he-  tne  user  enters  a  "q“  the  program,  -ill  stop  *) 

;*  promting  for  data  points  and  save  the  data  file  *) 
e'se  beg;n 
beep; 
gotc  1C; 
end; 

Ei.:,- 

savelsetg*); 

EC; 

release;:) ; 

EC; 


PHv/<.Cky„Ri:  k, r—  .'o;  ; 

(*  Tris  procedure  allo-s  you  tc  charge  a  va-le  in  the  data  set. 

;♦  ;t  is  tup*  ease'  to  -rite  and  asc-i  file,  edit  it,  and  read  it  back 


code, x, v 

temp 

temp? 

SAl V, CHANJ 

setg 

P 


INTEGER; 

Str-ngIS; 

do-bie; 

Char; 

infoptr; 

pointer; 


BEGIN 
mark;p) ; 
ne-Isetg) ; 

set-inoo-(36, 1C,  18,  a 8 j 


REAClN(setg" ) ; 

IP  net  EXIST Isetg* .name)  Then  exit; 
ChanJ : 5  v ' ; 

vh;„e  upcase(CHANj)  =  'V'  CC 


BEGIN 


«ri le'n; 

WRITE;  Change  something’:  ' );CHANJ:=REA0kEv; 

-ri te’n; 

-ri te’n; 

IE  upcase(chanj)* 'v  then 
BEGIN 

writeC'Vhich  element?  :  ' ) ; intREAC(X); 

wri teln; 

WR I TE ( ' 0 1 d  value  =  ',setg-.CATA[X)); 
wri teln; 

write('Ne-  value  *  ■);dOubleread;setg'.data[x]); 
wri teln; 

write; 'Save  the  data?:  '  );SAlv.-'REA3REv; 
wri teln; 
wri te’n; 

ip  upcase;sa:v)='v  then 
BEGIN 


in  » 
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WRITE(  Name  the  data  :  1  );8EACuN(setg" . NAhE ) ; 

writetn; 

SAVE(setg'); 

ENO; 

ENC; 

EnO; 

reiease(p); 

£  \ 


prs:e:ure  see; 

(’  Ti:s  .r-ies  a  data  set  to  the  screen  »J 
VAS  x,  v  :  INTEGER; 

setg 

C  :pc:rte'; 

BEGIN 
maf's) ; 
ne-Isetg) ; 

Set«'  h  c  o  *  I  3  6 ,  C ,  78, I 8 ) ; 
read'  ->;setg* ; ; 

IP  not  tX’S'JS-Tg'.rar.e;  ThEn  e/'l; 
-ihdo.;:, 

CURSOR; 

PCR  x  :=  1  TC  setg'.s'ze  SC 
w* ; ,  E  ( St  o  . Ca  A^XjiSi"); 

PAdSE : =  RE  ACRE v ; 

released) ; 

EMI; 


PRCCECvRr  SCP’rP  (VAR  SETG:In-C>; 

(*  t-  s  -s  a  "eapss-t  To*  sort>g  va’ues  »'t r-h  a  data  set  *) 

(’  *r  s  -as  '"'tec  ver  sat  v  f>or-  Pascal  Program's  L'.Srary  ') 

(*  -'f  fe  except'd-  cr  the  ti"e  Se'ore  the  "i.9:  lase',  I  *) 

(’  h.ac  to  acd  fs  ts  step  the  procedure  Tror  f/.rg  to  access  *) 

(*  a  data  set  e’e-'e't  a;  the  zero  'nge*  (causes  ar  erro’-J  ») 

u  A3  E  _  >.l,"2,"3lL"ai.S,:7ld6,"9; 

var  !,  J ,  u ,  8 ,  PAuSE  :  In'EGER; 

Nd“  tdo-Sie; 

oase  :cha-; 

sec:-. 

IP  SETS. S I 2Z  <-  I  THEN  EXIT; 

LI:  i. :  *Sc". SI ZE  CIV  7  .  I; 

Rf  S£TG.  SIZE; 
l? :  IP  L  ^  I  Then 
BEGIN 

L  :■  u  -  1; 

:  =  SC  ■  S.  CA  ■  At  L  j ; 

ENC 

E.SE 

BEGIN 

Nu'r  :  -  St  G. 0A”A[ R]  ; 

SE  G.DA. alS) : *SETG.CA . A_ , j ; 

R:»  R  -  1; 

IP  R  *  1  Then 
BEGIN 

SETG.CaTa;!]: ■  Nd*; 

EXIT 

ENO 

ENO; 

L3:  J  :•  L; 

14:  If  J; 

J  f  0  +  J ; 

IP  J>R  THEN  goto  lB; 

IP  J.R  THEN  GOTO  .7; 

15:  IP  SETG. CAT* [J]  <  SETG.OA’AfJ. I ]  ThEn 
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17:  SETG.  QATA[1]:. SETS.  CATA^J; 

GOTO  L4; 

18:  J  :•  I; 

!:•  J  Div  2; 
if  I<1  tnen  I:-l; 

L9:  IF  (NUH  <•  $ETG.CATA[I])  or  (J 
BEGIN 

SETG.DATA[J]  :=  NON; 

GOTO  12 

eng 

ELSE 
8EG I N 

S:  G* DA  al^j  : -  St.  G.uA.At 
GOTO  l8 

EnG; 

ENG; 


l) 


Then 


procedu'e  q-aH.;:les; 

(*  Tris  rout'ne  gets  pet;  estimates  and  9CN  t«o-sldec  condderce  interval  ») 
(»  for  t*e  pua-ti'es  •••  th  multiples  of  13  ie.  .1..2..3  etc.  See  tcliejnen.  *) 
var  setg  ;irfoptr; 

T  :po;nte*; 

P,h,q  tdouple; 

Beg'" 

mad;-; ; 

r,e«(setg', ; 

set*' n sc- ^  36 ,  .  u , 78, *8, ; 

REaGI Njset g* ) ; 

iF  (rot  EXIST C setg* .name; )  or  (setg*. SIZE  <*  20  Then  peg'r 
-rite;  :T."'Ce't  samp’e  size  (<2CI  );  (’  aSSu>iP";onS  CEPENG  Cn  n>2G  *) 

pause: =reac„ey; 

re’ease;’1;; 

ext; 

e-d; 

r: =setg* . s  ze; 

-rite*"; 

-rite;  3'ease  wa-t  --  Sorfrg  ...); 

so'tTtsetg*;; 

wineo-0, 1,80  25:; 

c'rsc”; 

set«;  rso-C.C,  5,  70,22); 

-r-te>C  Qua-fie  Estimation  arp  9CN  Confidence  Intervals'); 
w* i  t e ’ n ; 

color  or  co’edfve, Black); 

-rite‘r(  N  Po'.rt  Lo  Hi'); 

•ritelnC  _ '); 

colo'crcc'c-;--' te, Clack ;; 
vri te’ r; 

fo-  x:  *  I  to  9  Sc  oeg-.r  (»  klEIJnEn  PAGE  36  FOR  ALGCT.’Thn  CISCGSSICN  ♦) 
p :  ■  a  ! .  G ;  , 

q:**-p; 

writer  ,x'I0:3,  h  ' ,  setg"  .data  [  ;runc(x/10*n)  ] :  13: 2) ; 

-rite (setg*. data. 'trunc("*p-1.645'sqrt(n'p'(I-p) ))♦!]: 13:2,  ’  ); 

-r: te’nfsetg'  dataj trunc (r*p.i ,6A5*sqrt(n*p' (1-p) ))♦!]: 13:2); 
end; 

wri tel n; 
p: *0.25; 
repeat 
q:*l-p; 

writer  1  ,p»100:3:0, 'N  ' , setg' . data[trunc(p*n)] :  13:7); 
write(setg'.data[trunc(n»p-1.6<J5'sqrt(n'p*{2-p)))rl]:13:2,  ’  '); 

wrUeln(setg'.flata[trunc(n'p.l  ,645*sqrt  (n*p*(l-p)))*l]:13:2); 
p:-p-0.5; 
until  piC.75; 
pause: -readkey; 
reiease(T); 
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end; 


Procedure  Probability; 

(*  Th;s  routine  uses  tne  estimate  for  sinom  a'  DroDaSi  1  i ti es  to  get  a  *) 

(•  no-oarame'.ri c  estimator  of  tne  p-obab’ity  of  a  value  drawn  from  the  ') 

!*  data  set  s  underly; r.g  popu’atior.  begin  less  tna-  X.  The  estimator  ') 

;*  a-d  ;;  as  can  be  'ow-c  in  any  basic  stats  boo*.  1  used  Elementary  *) 

(*  Stat;stics  by  Suxbu’-y.  ') 

var  setg  : inf opt"; 

T  :pointer, 

to, "i , sum, njnbe', p, c  ."double; 


n  tintege*; 

beg'  - 
ma ' X ; ” ; ; 
ne-(setg; ; 

set.  -  -  do- ; 36, IS, 73,  IS)  ; 

REAS.  ■<;  setg  1; 

it  (not  ExlS'(setg*.name; ;  or  'setg'. SIZE  <=  2C1  TuEf.  beg-- 
•r'te;  1  n s-^ ^ ■  c ; en t  sa-p’e  swe  ( <2C>  );  (*  assumption  or  n>?0  ») 
pause: ’-ead^ey; 
re'e a s e ; * ;  ; 
en  t; 

•’•te’n;  ru-ct'on  'et-^s  °(«.<x; 

-r-te;  E-ter  X:  licdub'e'eadl’-urbe-;; 
n: =  setg'.s  nae; 

•  r-  te‘ '; 

•r-te;  P'ease  wa't  --  Sorting  ...  J; 

»-■ te’n; 
sorf'tsetg‘1; 
su~: -2; 

fO'  a! 5  1  td  '  U- 

1  *  setg'. datable, surde-  tne-  s-~:  'sum.:; 
d:=s--,;'  1); 
o:  =  1  p; 

tc:*p-1.6d5’sp-t;o*d/-;; 

Hi :=p.l.6d5’sc't;p*d/n; ; 

if  (p'r  <  5)  or  (g*-  <  5;  tr.gr  beg  n  (*  g'r,  and  P»n  must  be  >  5  -) 

write!  Irs/'ice'.t  data  so'eas  ...  };  (•  for  C!  to  hold  .ater  ►) 

pause: =readney; 
release;”;; 
ex  i  t  ; 
end; 

«r;.  te’  n; 

ur-te'n;  Point  estimate:  ,p:7:5); 
write'n;  9Ch  Cl:  hi  :  , H ■ : 7 : 5 1 ; 

write’-;  LO  :  ',00:7:5); 

pause: =  readxe., ; 
re'easeC;,- 
end; 

e-d. 
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{$«  64000,  C,  655C0O 

{n*}  (*  sets  the  coprocessor  on  ») 

Unit  daveHenu; 

^********************* ************************  *************************** 

This  unit  contains  all  the  Procedu’es  necessary  to  support  the  scrolling 
menus  in  the  main  program.  The  menu  choices  and  attriputes  are  stored 
in  nENv  .n-.cn  is  a  record.  Notice  that  this  is  a  pointer  variable,  meaning 
that  tris  variap’e  resides  in  the  HEAP,  leaving  the  «hol.  64*  of  main  data 
memory  free  for  the  app'ication  (main  prog'am).  Also  note  that  this  is  a 
glcba’  va'-aple,  eliminating  the  need  to  pass  it  as  a  panamete'  among  the 
va'io.s  Procedu'es,  *nich  .Quid  overload  the  stack  section  of  memory. 


St'--g3C=st-:ng:3:;; 

St"- -g:5=st'; -g; 15; ; 

Scree"- trs*sc'ee"type: 

Scee-t  yoe^ecord 

Pos  :  ARRAV ’1 . , 25, 1 . . 80]  OP  PEC 
Cr  :  CHAP; 

At  :  8V"; 

End; 

CursX, Cursv  :  integer; 

End; 


(-  Tni s  enables  stc'ing  »} 
(*  a  text  Scree"  to  ') 
(*  memc-y  for  late'  use.") 
('  'j 


He"Text  =  a"ay  ]0.. 13,1. .10]  c'  st"ing3C; 
"erPos  =  a"ay  '  3 .  .2, 0.  .9, 1 . .  10]  of. integer 
He"first=ar-ay  [3. .10]  o'  poolea"; 
herSc*ee"=array  [1 ..10]  of  Scree'type; 
ne'ln'oPf  -*men-rfo; 
he-l'fo  =  record 

texttmentext; 

pos  .-menpos; 

Pi rst:me"P i rst; 
Screen:menScreer.; 
max;arra.y  [1..10]  of  intege 
top:array  [3. .301  o'  intege 
le'tiarray  [3. .10]  of  integ 
End; 

PileName  =  STR1NG]3?]; 
wo"d  -  STR 1  f.G ]  8  ]  ; 


integer; 
of  mteae'; 


intege"; 

Scree"Pt'; 

hen  I nf  oPt r ; 
Char; 


Procedure  Col orOnCol or (1 et ters, back: *ord) ; 

Procedure  Beep:  (*  orig^na’  ') 

Procedure  0oubieRead(va"  value:double); 

Procedure  IntRead(var  value: integer); 

Procedure  Generi  C80x(xl,yl,x?, x3,x4,y4, L ineType:  i  nteger ) ; 
Procedure  Setw:ndo«;yl,xl,y2,x2: integer); 
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Procedure  KorzSetKenuG«:ch: integer 

Procedure  Scrol lMenut-' ch: integer; var  go, go2:char; var  temp: integer) ; 

Procedure  High]  ight  (xpos,ypos,  choi ce,  «.i ch:  integer); 

Procedure  HenuControl ch: 1 nteger; var  go,go2:char;var  temp: integer) ; 

Procedure  Sho*Oir;pileSpec:PileNane);  (*  turpo  4.0  or  pascal  prog'amrers  library  *) 
Procedure  Prtsc; 

INPLcHE  NTATiCN' 


Procedu'e  Prtsc;  ;♦  from  Pascal  Prograime'S  Library,  By  Que  ») 


This  P'ccedu'e  fo'ces  a  screen  dump  to  the  printer  wher  in  the 
text  mode,  arc  .-‘l  work  in  the  grapnic  mode  vf  a  graphic  screen 
dump  utMity  SuC-  as  egadmp  of  the  Chart  package,  has  been 


1 "sta' ’ ed. 
**+++****+ 


var  Reg: Reg; sters; 

Beg-" 

lntr;$5,Cos.Reg- sters(REG); 
End; 


ProceCu'e  Sro-C' • i ’ eSpec:ci ' ehame) ; 


Tr-s  proced-'e  C;S’payS  a  directory  Of  the  Current  C S~  using  the 
f-  ’ e  spec-f'catior  given,  Such  as  '■*  or  '.pas.  Take-  f'om  the 
Cue  ooox  *urbc  Rasca’  Prog*aTie-s  L’brary. 


**»*•»»*•'*■ 


type 

Strings;  =St'-ng[B01; 
const  Co'ur-s  *  5; 

VAR  J , C o S i  z e  :intege'; 

Reg  ireg'sters; 

Ota  tARRAv;:. .43]  C?  BYTE; 

Alt-  :3V"; 

Pause  :CnAR; 

Begm 

CvRSCR; 

A  i  1 R :  -  u ; 

CCvSIZE  :*  8C  c;v  COudWiS; 

REG. Ox  :  =0FS  wTA) ; 

REG. IS  SEG'O’A) ; 

REG. AX  :=  SG ACC; 

HSGGS ; Cos. Reg- s tens (REG)); 
ColO'GrColor(ye'"o»,blue;; 

gotoxy (?», 1 5 ; nr*  te’n( ' »»»*»*»»**  CIRECTORV 
Text8a:kground(b‘ ack) ; 

«n  te:n; 

PileSpec  :=  PileSpec  ♦  Chr;c); 

REG. OX  OPS(Fi !eSpec[l ] ); 

REG. OS;*  SEGfPi leSpecl I] ) ; 

REG. CX: *ATTR; 

REG. AX: *$4E00; 

HSOOSCOos. Registers (REG) ; ; 

IE  lO(REG.AX)  <>  0  Then 
8egin 

writeln  ('NO  SET  EIlES  POUND  ); 

PAUSE:  ■REAOkEV.- 
EXIT; 

End; 


); 
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IF  DTA[22]  AND  $10  <>  0  Then  write  f ' [D] ' ); 

J  :*  31; 

WHILE  OTA[J]  <>  0  DO 
Begin 

WRITE (CHB(0TA[J];j; 

J  ;*  J*1 

End; 

REPEAT 

REG.DX  OFS(DTA) ; 

REG. CS  SEG(DTa) ; 

REG. AX  $4FDQ; 

HSDCS (Dos. Regis tens (REG)); 

IF  LC(REG.AX)  «  C  THEN 
Beg’r 

1=  WHESEX  -  (OOlDKNS  -1  )  *  COlSIZE  *1  THEN  write’, r; 
wh : . E  (whEREX  hod  COlSIZE)  1  DO  WRITE  ('  '}; 

IF  0Ta[22]  and  $10  <>  C  THEN  WRITE  ( 1 [Oj • j ; 

0  :  =  31 ; 

While  DTA[0]  <>  C  DC 
Begin 

wri^e  ichR(DtalJ]55; 

J  ;  =  J*  1 
End; 

End; 

UN  it  LO(RtG.AX)  cj,  0; 
wri tel  n; 

PAUSE : «READKE  V ; 

End; 


Procedure  Col orOnCo 1  or ; 1 et tens, back: word! ; 

^ppppppppppppppppppppppppppp*  pppppppppppppp*ppp.pp*p*ppp.pp*pppppppp*pp.pp*p 

this  a’.  1  o-s  the  programmer  to  change  the  text  color  and  the  background 
color  with  one  statement. 

ppppppppp*ppppTpppppppppppppppp*pp.pppp.p.pppp.pp.pp.ppppppr.p*pppp  +  pp.p*p+p.p.p.ppp  +  '} 

Beg-n 

textcoi or (letters); 

Tex tBackg-ound;  back); 

End; 


Procedure  Bee?; 
Begin 

sound(5GC) ; 
delay(25G); 
nosound; 

End; 


Procedure  Doub>Read!var  valuetdouble); 

^ppppppppn*pppppppppppppppppp.pprppnp*p*rppp*^pppp9pnpppppp*ppp*pp**pppp*pp^ 

This  procedure  does  error  checking  while  reading  in  double  precision  numbers. 
It  keeps  the  program  from  aborting  if  the  number  is  entered  imporperly. 

»wiM»l»»*llv*«**il***»vrrrrw****  *************  *rrvrr*rrrr*rr«r***rvr*r«w»*ww***) 


va r  tetrp  :  Filename; 

code  ;  Integer; 
label  10; 

Begin 

10:readln(tern>}; 
val (temp, value, code); 
if  (code<iO)  then  Begin 

Beep; 

write('Re-enter  the  value: 
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goto  1C; 
End; 

End; 


Procedure  IntRead(var  val ue: integer) ; 


f******************************************************************* ******* 

This  procedure  does  e-ror  checking  while  reading  in  integer  numbers. 

It  keeps  the  program  from  aborting  if  the  number  is  entered  improperly 


var  temp  ;  PileName; 

code  :  integer; 
label  1C; 

Beg'" 

1C: read’nltemp); 

»ri  te’ n; 

val (temp, value,  code)  ; 
if  (codecsO)  men  9eg;" 

Beep; 

wr; te( ' Be- enter  the  value:  '); 
goto  1C; 

End; 

End; 


Procedure  Gere* i cBox (xl, yl,x2,x3,xd, yd, LineType: integer); 


This  procedure  dra«S  a  be*  starting  at  the  xl,yl  positon,  ending  at  the 
x*,yd  position.  Horizontal  dividers  are  dra*n  at  positions  x2  and  x3  if  they 
are  set  to  something  other  than  zero.  Allows  for  dra-ing  .ith  single  or  double 
’ines,  or  a  rn:*  of  both. 


type 

bar  *  string[79] ; 

var 

lyne,lyne2  :  bar; 

hi ,  hi  2,  vl ,  ul ,  ur,  1 1 , 1  r,  1  i ,  ri ,  ti  ,bi  ,r 
X: integer; 

8eg;n 

»indo*(yl,xl,yi,xd); 

clrscr; 

windo-ll , 1 , 0C,  25); 
if  Line’ype=l  then  Begin 
ul : *#210; 
hl:« #196; 

ur: *#131; 
vl : «#l 79; 

11:*#192; 

1  r; *#217; 

fl:-  -i'; 

1I:*T; 

End 

else  if  LineType*3  then  Begin 
hi : *#205; 

HI  2: -#196; 

UR: *#187; 

UL : -#201 ; 

LR: -#188; 

LL:*#2C0; 
r I : *#192; 

1 1 : -#199; 

VL: *#186; 
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End 

else  if  iineType*2  then  Seo¬ 
ul  : -Char (201) ; 

Hi: *CHAR(205) ; 

UR:-ChaR(187); 

IR: *ChaR(188) ; 

Ll:»CHAR(200); 
r! : -ChaR(185) ; 

1 1 :  =ChaR;2CR)  ; 
vl:= char;; 96); 

End; 

LVNE : * '  ; 
lyne2: »’  ; 

FOR  X:  =  I  TO  vi-v;.;  00 
LVNE ; =lVNE*hL; 

if  lineType  =  3  the-  for  x;  =;  tOyi-yl-I  do 
Iyne2:=lyne2*rl2 
else  lyne2 ; *lyne; 

GC’Cxv ;y ; , x ; ; ; wr ; T£ ; ; ; ur ; -c ; ; vne ) ; 
Giroxv ;  vi,  xi );  write ;ur; ; 

FOR  X: =  x;»;  TO  Xi  00 
8eg'n. 

G0T0xv(v;,x;;  wr;tf;vc); 

GOTOXV ( Vi, X);  write jvl ) ; 

End; 

IF  X2xn0  ThEn  Beg- n 
GOTOXV  ;v- ,  X2) ; WRITE  [L I ) .-WRITE  (ivnE2)  ; 
G0T0Xv;vi,x2:;WRITE(RI); 

End; 

IF  x3<--0  Then  Beg' - 
GOTOXV ;v; , X3I ;wRl'E  U 1 1 ; WRITE (lyn£2I ; 
GO'Cxv ; Vi, X3) ; WRITE  ;RI ) ; 

Eno; 

GCTcxv ;v;,xi); wr ,  e  ( u  l  ) ; wr i * E Cl vne } ; 

GOTOXV  ( Vi,  Xi) ;  WRITE  Ii.R) ; 

Ere; 


Prosed. *e  Setv;ndo.ry;,xl,y2,x2:integer);  (*  turbo  i.C  aocumentatin  ») 


{*  +  *+*  +  +  *  + *  +  *  +  +  +  + +  T+.  +  *  +  %  + V  +  9  +  + 

This  p’ocedure  draws  a  box  in  the  specified  region  andclears  it  for  a  pop¬ 
up  «'r,do«. 


’) 


var  i: integer; 

Begi  n 

windo*(yI- 1, xi - i,y2»; ,x2*l) ; 
cl rscr; 

w:ridGw(.,i,8w,25); 
textcci or ;plue) ; 

Generi c0ox(xl - l,yl - 1, C, 0, x2»I,y2*l, 7) ; 
wi nd0«(yl , xl,y2,x2) ; 

Col  orCnCoi  or  (uhi  te,  bi  ac*x ; ; 

End; 


Procedure  HoraSetHenu(wich: integer); 


This  procedure  sets  the  positions  for  each  line  o' 
The  coordinates  are  detinnined  by  the  top  of  meru, 
how  many  choices  are  on  the  menu. 


text  for  a  menu  screen, 
left  edge  of  menu,  and 


var  x: integer; 
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Beg'  n 

for  x:*  1  to  Henu*.maA'«ichl  do  3eg'n 

Henu*.pos[2,x,wich.]: =  x*3*henu‘ .  top  >' cr.  1 ; 

Henu* .pos[l,x,wi  ch] :=Henu*. 1  eft[»ich]*2; 

End; 

Nenu*.pos[2,0,wich]:-Henu*.pos[2,Hen.,*.max[..ich],.iieh3*2; 
Henu*.pos[I, 0, wi ch] : =wenu*. lef t {»> cn] .2; 

End; 


Procedu-e  horzdrawnenu(wi cn; integer) ; 


This  procedures  uses  tne  others  to  dra«  a  menu  screen. 

**uu«u**uuu*uu*uurruvu**n*-**»**v 


var  x: intege'; 

Seg;' 

Co’orCnCc’c-Jyello-.d'ack); 

Gene'; cBoAjneru* . tep[«i cn] , Menu* .lef  t [«ich],henu". top[«i cn] .2, 
nen„* .max[»;  cn]A7»Kenu*.top[»icn]-l,nenu*.n;ax[-lcn]A9r 
ne-u*.  toploichj-l.Hen..*.  Iert[«ich]..i8,2); 

Col  orC'.Cc1  or  ;«■;  te,pl  ack) ; 

TextBackgroundt'ed); 

GOTOXv ere-..* .  1  eft [.i ch]«2, «en„* . top[.ich] .1) ;  wRiTE(Henu*.texl[Henu*.max[«ich]rl,wich]); 
Text Background (black) ; 

for  »•=  1  to  nprL*.ma> '•i c*]  ♦!  do  Begin  (>  use  x-1  to  get  around  not  letting  x  be  zero*) 
Co’orC'Coior'wuirE.BLACk;; 

SC‘rCxv  ("e'u".  pos[  1,  x- 1,  wi  ch],  Her, u".  post  2, /-l,«:ch]);wRiTE  (Menu*,  text  [x-l,«ich]); 

Col crC'Co' or eCVAk, BlACK) ; 

GC”Xv!,'eru*.pos[:,x-:,«icb],Henu*.pos]2,x-l,»ich]);wRl'i'E(nenu*.text[x-l,wich][l]); 

End; 

End; 


Proced--e  Sc'o'lnenu(.ich:integer;var  go,go2:cnar;var  temp;  integer); 


This  procedu'e  moves  tne  highlighting  bar  up  and  down  the  menu  as  the  arrow 
keys  are  used.  It  also  sets  the  menu  choice  each  time  it  moves  the  bar 
so  that  when  the  enter  key  is  hit  the  proper  menu  choice  will  be  selected. 


*) 


Begin 

go; ='eadkey; 
if  go* 'P' then 

if  temp<ienu*.max[wich]  then  temp: *  temp* 1 
else  tenp:*C; 
if  go='n'  tner. 

if  tenp>C  tner  temp; =temp- I 
e'se  temp: aMenu*.max[-icn]; 
go2: =henu". text [temp, wich][l]; 

End; 


Procedure  Hi gh 1 i ght (xpos , ypos, cho ’ ce , wi ch: i nteger ) ; 


This  procedure  writes  a  string  of  text  in  yellow  or.  cyan  highliting. 


Begin 

Col  orOnCol  or (WHITE, cyan) ; 

gotoxy (xpos, ypos) ; wri te ("enu* . text [Choi ce, wi ch] ) ; 
ColorOnColor(whi te, black); 

End; 
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Procedure  NenuContrc) ;»i ch: i nteger; var  go,go2:char;var  temp: integer) ; 

( ********************* w* WWW  *********  ***********  ***************************** 

This  procedure  is  the  master  control  module  that  takes  over  any  time  the 
program  enters  a  menu  procedure.  It  handles  the  screen  drawing,  scrolling, 
and  returns  the  proper  choice  the  user  selected  to  the  individual  menu 
procedure  in  the  main  menu,  so  that  choice  can  be  executed.  Note  that  if  this 
particialr  menu  has  been  called  once  before,  the  screen  need  not  be  drawn 
again  since  it  was  stored  in  memory.  The  menu  screen  is  simply  recaled  from 
memory  witn  the  index  WICH. 

************  ******  •**«?**********«*  ********!►***♦*************  ****************  ) 


IP  (Menu* . F i rst [»i ch  j )  THEN  Begin 
her.*" . Pi rst [wi ch] : =falSE ; 

HorzSetHen*;*-,  ch) ; 

horzdra«henui'«i  Ch) ; 

her.** .  Screen  [«i  ch] :  ^Screen" ; 

H;g-’ ;ght;Heru*.pos]l, temp, .i ch] ,nenu" .pos [2, temp, wi ch] , temp, wi ch); 
End 

ELSE  ■*  (goc-'P  )  and  (goci'H  )  then  Beg:' 

Scree"*:*nen«*. Screen r.icn]; 
go: = her*" . text [ I ,  wi ch] [1 ] ; 

GC2: =henu  . text [1, *ich] [1] ; 
temp: =1; 

Hi gr'  i gh; 'henu*.pos[l, temp, wi ch] , Menu" .pos[2, temp, »i ch] , temp, wi ch) ; 
End; 

CuTCXv(Peru'.lefl[wich]»lC,Menu*.pos[2,C,wichj*2) ; 

GO : =RE AukEv ; 

if  go *#I  then  Begin 

Screen" : »henu* . Screen [*i ch] ; 

Sc'ol 1 henut-i ch, go, go2, temp) ; 

High) ight(nen„". pos[l,  temp,  wich],her.u*. P0S[2,  temp, wich],  temp, wich); 

End; 

if  go=Chr;jCG)  then 
go: »gc2; 

for  x:=  1  to  henu".max[wich]*'.  do 

if  upcase!go)*hen„*.text[x,wich][)]  then  Begin 

temp: *x; 

Screen*:  »Henu* .Screen[*ich]; 

H’ghl  i  ght (nen„" . pos [ 1 , temp,  wi ch] , henu" .pos[2, temp, wi Ch] , temp, wi ch) ; 
Eng; 

End; 


This  initilaizes  the  pointe-  heap  variables  ant  sets  them  intia)  values. 


Begin 
new(henu) ; 
new(Screer) ; 

Screen  :=  PTR(JB8CC,S0CC:); 
for  x:*  1  to  10  do 
henu".First[x]:*true; 

End. 
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